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ABSTRACT 


76 ewececne 


77 
THIS PROGRAM IS AN ACCEPTANCE TEST FOR THE ENTIRE VT61 a OF 
FUNCTIONAL TESTING IS _ BASED UPON SET OF 
ge a od THE ENTIRE FAMILY 
NALS. THE FUNCTIONS AND THEIR DERIVED TESTING 
IS nine A TO COMPLETELY CHECK(AT THE FUNCTIONAL LEVEL) 
TERM MICRO=PROCESSOR AND ASSOCIATED RAMS. AiL_ TRANSMISSIONS 
TO THe p VT6I WILL BE PRECEEDED BY A SOM AND TERMINATED BY AN EOM. 


THERE ARE TWO DISTINCT MODES IN WHICH THE PROGRAM 
D. IN ‘AUTO’’ MODE UP TO 2 DZ11'S WITH 

OPE D AND AL 

SEQUENTIALLY. TESTS WHICH 

OR VISUAL SCREEN OBSERVATION (TESTS 1 

FOR EACH VT61 REPETITIVELY. ALL ERRORS WILL 

SYSTEM CONSOLE (WHICH IS NOT TESTED EVEN IF IT IS A VT61). 


IN MANUAL MODE CONSOLE ENTRY OF THE ADDRESSES AND TESTS IS 
REQUIRED. ADDRESSES TESTS C ENTERED A 


MODE MUST BE UTILIZED TO ENTER THE 


KEYBOARD TESTS, DATA LOOP TEST, AND PRINTER CONTROLLER TEST. 
SEQUENCE COMPLETION WILL EXIT TO THE RESTART POINT FOR THE 


REQUIREMENTS 


EQUIPMENT 


PDP 11 FAMILY COMPUTER WITH 8K WORDS OF MEMORY, A CONSOL 
TO 32 VT61"S CONNECTED TO THE HOST COMPUTER VIA DZ11( 
MUST BE IN REMOTES FULL DUPLEX AND AT LEAST 300 BAUD. 


LE, AND 
S). VT61 


LOADING PROCEDURE 


PROCEDURE FOR NORMAL BINARY PAPERTAPES SHOULD BE FOLLOWED. 


STARTING PROCEDURE 


78 
79 
80 
81 
82 
83 
& 
85 
86 
87 
88 
89 
90 
91 
92 
93 
GG 
95 
96 
97 
98 
9 
00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 





oz 


MAINDEC=11=DZVTM-A 
CZVTMA.P11 


_ 
Mr 
Gn 


ke ak td i td a hs st 
SSBIEFRUNVYASY 


141 
142 


150 


NINNNNNN Oo DADA 
BAIVRARANUVSSEISARAVIS SSVKVRUNVYZ 


MACY11 30A(1052) 
23-FEB-78 16:29 


E 
O07-NOV-78 15:00 PAGE 4 


PAGE 4 


4.1 CONTROL SWITCH SETTINGS 
STANDARD PDP 11 FORMAT 


Swi5 = 1 HALT ON ERROR. 

Sw14 = 1 LOOP ON TEST 

Sw13 = 1 INHIBIT ERROR TYPEOUTS 

Sw11 = 1 INHIBIT ITERATIONS 

SWw10 = 1 BELL ON ERROR 

Sw9 = 1 LOOP ON ERROR 

Sw8 = 1 LOOP ON TEST IN SWR<7:0> 
SPECIAL NOTE 


IF THE COMPUTER UTILIZED IS A LSI 11 OR A 
COMPUTER WITHOUT A SWITCH REGISTER. THE 
PROGRAM WILL UTILIZE LOCATIONS 174 AND 
176 AS A ‘DISPLAY’ REGISTER AND A 
SSWITCH’” REGISTER RESPECTIVELY. THE 
OPERATOR WILL BE SIBLE FOR THE 
LOADING OF THE “‘SWITCH'' REGISTER LOCATION 
PRIOR TO STARTING OR RESTARTING THE 
PROGRAM. 


4.2 STARTING ADDRESSES 


200 IS THE STARTING ADDRESS OF THE ‘‘AUTO"’ ACCEPTANCE TEST 
204 IS THE STARTING ADDRESS ON THE ‘MANUAL'' SELECT TEST. 


OPERATING PROCEDURE 
5.1 AUTO ACCEPTANCE MODE (SA = 200). 


IN THIS MODE THE ONLY OPERATOR st oe REQUIRED IS_ SWR 
OPTION SELECTIONS SUCH AS LOOP ON TEST (SWR 11), BELL ON ERROR 
(SWR QO), ECT.. THE PROGRAM WILL WITHOUT ANY _ EXTERNAL 
INTERVENTION, LOCATE THE b711(8)/U4 NES WITH VT61 TYPE UNITS 
? baa SEQUENTIALLY TEST ALL UNITS REPETITIVELY WITH TESTS 


SEQ 0004 


or | 
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181 


ange 


5.2 MANUAL UNIT/TEST SELECTION MODE (SA = 204) 
as — REQUIRES THE OPERATOR TO ENTER THE ADDRESS OF THE 
D211 17XXXX, ONLY ONE ENTRY). 


ak 


A 
NG TY a a WILL THEN 
REQUEST THE prog 2 TO BE TESTED ,IN BINARY F 
NOTE THAT IF AN ERROR IS MADE AND A ? 1s TYPED. ALL DATA 
ae IN RESPONSE TO THE QUESTION UP TO THAT POINT | IS LOST. 

THE OPERATOR MUST THEN, PROGRAM ogy til ENTER A_ LIST 

OF TESTS TO BE EXECUTED IN THE SAME FORMAT AS THE ADDRESS ENTRY 
-- E.YY,2Z,C/R). PRECEEDING THE TERMINATING CARRIAGE RETURN WITH 

377 OCTAL WILL RESULT IN THE TESTS BEING REPETITIVELY EXECUTED 

FOR THE ADDRESS ENTERED. 


SIMPLY DEPRESSING A_ CARRIAGE RETURN ay UNIT ak at ARE 
REQUESTED WILL RESULT IN THE MAPPING AND TESTING OF ALL GOOD 
DZ11(S)/LINES WITH OPERATIONAL VT61'S_ ATTACHED. HOWEVER. THE 
TEST LIST MUST STILL BE “by VIA THE CONSOLE!!! WHEN RUNNING 
THE EXERCISOR IN MANUAL MODE A CONTROL C (03 OCTALS WILL RESULT 
IN THE TERMINATION OF TESTING AT THE END OF THE CURRENT SUBTEST. 


4, DEFAULT BAUD RATE IS 9600. IF THE OPERATOR WISHES TO CHANGE 

THE BAUD RATE, TYPE THE CODE FOR THE NEW BAUD RATE WHEN THE 
PROGRAM ASKS FOR IT DURING STAR - VO > tore a DEFAULT, MERELY 
TYPE A_CARRIAGE RETURN. ECOMMENDED THAT 9600 BAUD BE USED 
eg THE TESTS MAY TAKE A GREAT DEAL OF TIME TO RUN AT A_ LOWER 


SRIRGN SS BSSPSR GS ISSRERARE 


Ses 


VALID BAUD RATE ys i 
CODE= 


10 
11 
12 
13 
14 
15 
16 
17 
18 

9 


MNVVVVLUNAVNY 
nnnnnnownoae 


NOUS WI Om 


NO OPERATIONAL VT61 ATTACHED 


IF THE UNIT SELECTED (IN ‘MANUAL’’ MODE) OR IN THE MAPPING 
OPERATION ("‘AUTO'' MODE) DOES NOT RESULT IN A _UNIT WHICH IS 
CAPABLE OF RiSPONDING TO THE TEST THE MESSAGE "NO VT61 RESPONDED 
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TO ESCZ SEQ._ AUTO RETRY IN 30 SEC"’. rt ae 


BE er. ON THE 
CONSOLE EVERY 30 SECONDS UNTIL THE TEST UNIT 
RESPONDS. 


ILL 
S STOPPED OR 


EXCESSIVE ‘FATAL** ERRORS FROM UNIT UNDER TEST 


IF TEN FATAL ERRORS CINCOMPLE TE pags Mia Ss 4 CYCLES) OCCURS 
THE MESSAGE ‘'TESTING ABORT MANY FATAL XMITS'* WILL BE 
DISPLAYED AND THE TEST WILL ExT TO THE INITIAL SETUP SEQUENCE OF 
THE REQUESTED MODE. IF THE TEST THEN LOCATES AN OPERATIONAL 
UNIT, IT WILL BEGIN TESTING IT. 


SEQ 0006 


Ox 
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6.3 COMMON ERROR MESSAGES 


A. 


ESCAPE SEQUENCE ERROR (ERROR 1) 


THIS ERROR MESSAGE IS_ RETURNED WHEN A_ SPECIFIC cont 
aaek test” DID NOT oe hee EXPECTED RESPONSE FROM THE UNIT 


D:THE ESC,0, V WOULD 
2p SPLAVED IN THE FORMAT BYTE 142=015517,BYTE 3+4= 


RECEIVE STATUS ERROR (ERROR 2) 


THIS ERROR MESSAGE IS RETURNED iF ANY OF BITS 12, 13, OR 
ARE SET IN THE INTERFACE RECEIVE ay REGISTER. 
DISPLAYED IS THE ADDRESS OF <3 (CONT 

REGISTER) 


. AND THE CHARACTER WHICH WAS STORED WHEN THE ERRORS 
WERE DETECTED. 
SOFTWARE STATUS (VSTAT) ERROR (ERROR 3) 
THE LOCATION TAGGED *‘VSTAT** IS USED BY THE PROGRAM TO STORE 
DYNAMIC CONDITIONS RELATING TO THE UNIT UNDER TEST. THE 
BITS WHICH MAY CAUSE A SOFTWARE STATUS ERROR ARE: 
BIT 15 SET FOR XOFF, CLEARED FOR XON 
BIT 14 SET WHEN START OF MESSAGE RECEIVED 
BiT 13 SET WHEN END OF MESSAGE RECEIVED 
BIT 12 SET FOR A PERIPHERAL ABORT MESSAGE 
BIT 10 SET WHEN AN INTERFACE ERROR DETECTED 


BIT 7 SET WHEN AN XOFF WAS DETECTED AND THE 
TRANSMITTER WAS SHUT DOWN BY THE SOFTWARE. 


BIT 1 SET WHEN TRANSMIT COMPLETE 


THE ONLY BIT WHICH WILL UNCONDITIONALLY CAUSE THIS ERROR IS 
ALL OTHER BITS WILL BE SET AND 
-NDENT UPON EXPECTED CONDITIONS 
13 AND 14 MUST 
RESE “ERROR af BE 
IS_ THE PASS #, THE TEST #, 
EXPECTED STATUS AND ACTUAL STATUS. 
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D. VT61 HUNG ERROR (ERROR 11) 


THIS ERROR MESSAGE IS _ DISPLAYED IF A COMPLETE 
TRANSMISSION(S) nik NOT RESULT IN A _SOM(S), AN EOM(S) AND 
TRANSMIT DONE. THIS ERROR _IS A FATAL ERROR AND TEN OF THESE 
ERRORS WILL RESULT IN THE TEST ABORTING. 


Sa SE ELE Sei opt 
ed ed od et od 
NO OONOWE Wr 


RESTRICTIONS 


IT IS_JMPERATIVE THAT BOTH THE INTERFACE AND THE VT61 SHOULD 
BE PLACED IN FULL DUPLEX AND REMOTE (NOT LOCAL) MODE. 


UNIT TO BE TESTED CANNOT BE THE CONSOLE DEVICE. 


FOR THE AUTOMATIC TEST MAPPING OF THE DZ11°S, ALL_ ADDRESSES 
FOR THE UNITS TO BE TESTED a 2! BE WITHIN THE STANDARD DEC 
ADDRESSES AND VECTORS. IF _ THIS IS NOT THE CASE, THE 
PROCEDURE OUTLINED IN SECTION 8-8 MUST BE FOLLOWED BEFORE 
TESTING IS BEGUN. 


MISCELLANEOUS 


tite tet TIME FOR THE AUTO SELECTION fat (TEST 1-20) WITH 


TO A BAUD RATE OF 9600 BAUD APPROXIMATELY 90 


SECONDS. 


TO TEST A DEVICE og Hh WITH VT61 ATTACHED) AT NON-STANDARD 
ADDRESSES THE LOCATION ‘‘STRTAB'’ CAN BE MODIFIED TO CONTAIN 
THE LOWEST OF THE NON-STANDARD ADDRESSES AND LOCATON 
NDTAB'* MODIFIED TO CONTAIN THE HIGHEST NON-STANDARD 
ADDRESS. ALL INTERFACES WITHIN THE NEW ADDRESSES vill BE 
MAPPED AND TESTED IF THE PROPER RESPONSES ARE OBTAINED 


TO CHANGE THE NUMBER OF FATAL ERRORS ALLOWED BEFORE TESTING 
IS ABORTED, LOCATION ‘“‘ALWCNT’’ (LOADED WITH 10) CAN BE 
MODIFIED TO THE DESIRED COUNT. 


ALL_TESTS EXCEPT TEST 1 AND TEST 23 ARE RUN IN MAINTENANCE 
MODE, THEREFORE ALL TRANSMISSIONS FROM THE VT61 — EXPECTED 
TO BE PRECEEDED BY A SOM AND TERMINATED WITH A EOM 
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PROGRAM DESCRIPTION 


INITIALIZATION 


IN "‘AUTO"* SEQUENCE MODE THIS walt ~ OF THE TEST MAPS ALL DEVICES 
IN__THE PRE-DETERMINED AREAS DEVICES ARE THEN TESTED A 
INTERRUPT CAPABILITY VIA THE ‘MAINTENANCE’’ BIT AND ALL UNITS 
WHICH DO NOT OR CANNOT RESPOND ARE PURGED mo THE TABLE. ALL 
UNITS ARE THEN ISSUED THE "ESCAPE 7°’ SEQUENCE AND THOSE WHICH DO 
NOT Er" OR DO NOT RESPOND WITH THE PROPER ‘‘IDENT'’ ARE 
GED. i OPERATIONAL UNITS ARE STORED IN A TABLE(DLTBL) AND 
TESTED SEQUENTIAL Y. 


TEST 1 CHECK ALL COMMON ESCAPE SEQUENCES. 


THIS TEST ISSUES ALL ESCAPE SEQUENCES AND INSURES THE VT61_ HAS 
NOT FAILED DURING AN ESC SEQUENCE BY ISSUING A ESC Z TO FORCE A 
VT61 RESPONSE. THE PURPOSE OF THE TEST IS TO ATTEMPT TO _ INSURE 
ce ae TESTS WILL NOT RESULT IN A ‘HUNG’ UNIT. DATA IS 


ALL ERRORS ARE REPORTEDED AS ESCAPE SEQUENCE FAILURES(ERROR 1). 


TEST 2 CHECK MAINTENANCE MODE. 


es TO INSURE ENTERING ate tien oh MODE CAUSES SOM AND EOM TO 

E APPENDED T E - _MAINTENANCE 
SEQUENCE IS #SSUED TO THE UNIT 

AND THE RESULTING RESPONSE FROM THE VT61 IS CHECKED FOR SOM/EOM. 


ERROR 22 WILL BE ISSUED IF EITHER COMPONENT(SOM/EOM) IS MISSING. 


TEST 3 CHECK DIRECT CURSOR ADDRESSING 


THIS TEST INSURES THAT THE CURSOR WILL RESPOND TO ag CURSOR 
ADDRESSING. _ THE UNIT IS RESET AND THE CURSOR POSITION IS 
VERIFIED TO Be HOME. THE CURSOR IS a MOVED TO ROW 23 COLUMN 
80 AND THE POSITION IS AGAIN VERI® IED 


CURSOR POSITIONING ERRORS(ERROR 7) ARE REPORTED IF THE POSITIONS 
ARE INCORRECT. 
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9.4 TEST 4 CHECK LINEAR ADDRESSING MODE. 


pom ohy, TO INSURE THE UNIT CAN ENTER a ADDRESSING MODE. 81 
HARACTERS ARE ISSUED TO THE UNIT UNDER TEST THEN THE CURSOR 
POSITION IS READ AND MUST BE ROW1, COL.O. 


AN ESCAPE SEQUENCE ERROR (ERROR 1)IS ISSUED IF THE CURSOR IS NOT 
AT ROW1,COL.O 


TEST 5 CHECK XON/XOFF FROM VT61 


TEST TO INSURE OPERATION OF XON/XOFF COMMANDS FROM VT61. XOFF IS 
FORCED BY_ TRANSMITTING THE DATA ON LINE 23 WHILE SIMULTANEOUSLY 
FILLING THE SILO WITH NEW DATA. AFTER SENSING THE XOFF, THE TEST 
WAITS FOR THE TRANSMIT TO FINISH AND INSURES XON OCCURS BEFORE 
THE MAXIMUM TRANSFER TIME HAS ELAPSED. (30 SECONDS) 


ERRORS ARE REPORTED IF THE FORMAT OF rs om ERRORS) AND 
WILL REFLECT EITHER LACK OR EXCESS OF BIT 15. 


TEST 6 CHECK XON/XOFF TO VT61 


ROUTINE TO VERIFY OPERATION OF XOFF AND XON TO THE VT61. A _ FULL 
SCREEN TRANSMIT IS INITIATED AND A SERIES OF XOFFS AND XONS ARE 
ISSUED TO THE TERMINAL SEQUENTIALLY. ERRORS ARE REPORTED IF A 
XOFF DOES NOT STOP, OR A XON RESTART THE TRANSMISSION. TEST IS 
ENDED WHEN EOM IS SENSED. 


FRRORS ARE REPORTED(ERROR 15 FOR XOFF FAILURE AND ERROR 16 FOR A 
XON FAILURE)AS SPECIFIC ERROR MESSAGES. 


TEST 7 CHECK RAM AND COMMUN! CATIONS PATHS 


ROUTINE TO TEST VT61 RAM AND THE COMMUNICATION PATHS. _ THIS 
ROUTINE ISSUES A SERIES OF FULL SCREEN PATTERNS (77/100, 100/77, 
52/125, INCREMENTING, AND REV. VIDEC INCREMENTING) TO THE VT61. 
THE FULL SCREEN IS THEN TRANSMITTED TO THE HOST AND AFTER YEACH 
ITERATION RECEIVED DATA IS CHECKED AND ALL ERRORS (INCLUDING 
TRANSMISSION) ARE REPORTED. 


ERRORS REPORTED COULD BE ERROR 2 SOR A RECEIVE STATUS ERROR,ERROR 
4 FOR DATA ERRORS AND ERROR 5 FOR A RECEIVE BYTE COUNT ERROR. 


SEQ 0010 
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79 


9.10 TEST 10 CHECK TRANSMIT AND RECEIVE CHECKSUMS. 


ROUTINE TO TEST THE ABILITY OF THE VT61 TO CALCULATE AND TRANSMIT 
CHECKSUMS OF BOTH TRANSMITTED AND RECEIVED DATA. SUBTEST ‘‘A’' 
TRANSMITS A FULL 7 phd 3 = A CALCULATED CHFCKSUM ON EACH 

CHARACTER _ TRANSMITTED. ESCAPE SEQUENCE REQUESTING THE 
RECEIVER CHECKSUM IS EMBEDDED AT THE END OF XMIT BUF T 

~ Sp has CHECKSUM IS yn TO THE CALCULATED. 

PERF THE SAME TYPE OF CHECK THE VT61_ TRANSMIT CHECKSUM, 
UTILIZING THE “ees SENT TO THE vol IN SUBTEST “‘A’', DURING A FULL 
SCREEN TRANSMIT 


ERROR 13 IS _ISSUED(WITH CALCULATED AND RECEIVED CHECKSUM) IF A 
RECEIVE CHECKSUM ERROR IS DETECTED. ERROR 14 IS ISSUED (WITH 
icles. AS ERROR 13) IF A VT61 TRANSMIT CHECKSUM ERROR IS 


TEST 11 CHECK BASIC CURSOR COMMANDS 


ROUTINE TO INSURE BASIC CURSOR COMMANDS RESULT IN CORRECT CURSOR 
MOVEMENT. COMMANDS ARE ISSUED IN THE SEQUENCE: RESET, CURSOR 
RIGHT, CURSOR DOWN, CURSOR LEFT, AND CURSOR UP. THE READ CUR 

ITION COMMAND “IS ISSUED AFTER EVERY MOVE CURSOR COMMAND AND 
RECEIVED POSITION IS COMPARED TO THE EXPECTED POSITION AND 
ERRORS REPORTED. 


AN ESCAPE SEQUENCE ERROR(ERROR 1) AND A_ CURSOR POSITIONING 
ERROR(ERROR 6) ARE ISSUED IF ANY FUNCTIONS ARE DETECTED TO FAIL. 


TEST 12 CHECK READ CHARACTER AT CURSOR 


ROUTINE TO INSURE THAT READ CHARACTER AT CURSOR FUNCTIONS 
CORRECTLY COMMAND SEQUENCE IS: RESET, A, CURSOR LEFT, READ 
CHARACTER AT CURSOR. AN EPROR IS REPORTED IF THE CHARACTER 
RECEIVED IS NOT AN ‘‘A"’, 


AN ESCAPE SEQUENCE ERROR‘ERROR 1) AND A DATA COMPARE ERROR(ERROR 
4) ARE ISSUED IF 4 FAILURE IS DETECTED. 


PAAAHD AMATI 
ee ee ed 2 
ANF wr=0 


w 
~\ 
CODUGn 
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9.13 TEST 13 CHECK REPLACE AND INSERT CHARACTER MODES 


ROUTINE TO VERIFY OPERATION OF REPLACE AND INSERT MODE. 
INITIALLY ROW 0 IS WRITTEN TO 80 INCREMENTING CHARACTERS; ON THE 
FIRST PASS (REPLACE MODE) A CHARACTER(172) IS REPLACED AT_ THE 
HOME TION -0 AND ROW1, COL.O 
"NULL'’ RESPECTIVELY. 

INSERT MODE IS ENTERED AND THE RESULTING 

HOME POSITION) IS VERIFIED. ROWO, COL.O S 
72°" AND ROW], COL.0 SHOULD BE °161"’. 


IF AN ERROR IS DETECTED IN EITHER MODE,THE APPROPRIATE ESCAPE 
SEQUENCE ERROR(ERROR 1) IS ISSUED. 


TEST 14 CHECK VT61 SCROLL CAPABILITIES. 


ROUTINE TO — B ig 1 WILL SCROLL IF A _ FEED IS ISSUED FROM 
ROW 23 OR A INSERT FROM _ 23 COL. 79. IN SUBTEST ‘A"', 
ROW 0 IS INITIALLY WRITTEN TO 0 AND ROW 1 A 1. AFTER 
COMPLETION OF A LINE FEED (AND RESULTING SCROLL) ROW 00, COL.00 
IS ++i em TO_CONTAIN A 1. IN SUBTEST ‘B’', THE CURSOR IS PLACED 
AT ROW23, COL.79 AND A DATA CHARACTER "‘A'’ IS ENTERED. THE CURSOR 
POSITION 1S. THEN READ AND SHOULD BE BE ROW23, COL.00. THE CHAR. AT 
HOME IS VERIFIED TO BE A NUL. 


A SCROLL _ERROR(ERROR 23) IS ISSUED IF EITHER FUNCTIONS FAIL TO 
ELICIT THE PROPER RESPONSE FROM THE UNIT UNDER TEST. THE ERROR 
PC WILL DISTINGUISH BETWEEN THE FAILING FUNCTIONS. 


TEST 15 CHECK ALL SCREEN ADDRESSES. 


THIS TEST INSURES THAT THE VT61 CURSOR CAN BE POSITIONED TO EVERY 
POSSIBLE ROW/COLUMN POSITIUN - THIS IS TESTED BY 
FILLING THE COMPLETE SCREEN 79 


I T 
CURSOR (VIA DCA) TO EVERY PO ON AND 
IS REPLACED WITH A SPACE(OCTAL 40). ne SCREEN IS THEN READ TO 
VERIFY THAT ONLY SPACES EXIST ON THE SCREEN. ALL POSITIONS 
CONTAINING NON-SPACES ARE REPORTED. 


ALL ERRORS DETECTED WILL BE REPORTED AS 4 bh CURSOR ADDRESS 


ERROS(ERROR 7),AND WILL CONTAIN THE POSIT 
~SPACE) WAS DETECTED AT. 


ON THE BAD DATA(NON 
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9.16 TEST 16 CHECK LINE FEED AND CARRIAGE RETURN 


ROUTINE TO INSURE PROPER tonto OF CARRIAGE RETURN AND 
FEED -—* NORMAL MODE. INITIALLY 

D.C.A.) TO ROWO, COL 20 AND A LINE FEED 

POSITION IS THEN READ AND MUST BE ROW, COL. 

gy 1S THEN ISSUED AND CURSOR POSITION VERIFIED TO BE 


AN ESCAPE SEQUENCE ERROR(ERROR 1) AND A CURSOR POSITIONING 
ERROR(ERROR 6) WILL BE ISSUED IF AN ERROR IS DETECTED. 


TEST 17 CHECK ERASE TO END OF SCREEN 


ROUTINE TO VERIFY PROPER OPERATION OF ERASE TO END-OF-SCREEN. 
SCREEN IS WRITTEN TO 1920 INCREMENTING CHAR. ERASE TO END OF 
SCREEN IS THEN ISSUED AND THE ENTIRE SCREEN IS READ VERIFYING 
THAT IT IS ALL NULLS. 


IF ANY NON-NULL POS 
(ERROR 1) AND A DAT 


ITIONS ARE DETECTED, AND ESCAPE SEQUENCE ERROR 
A ERROR(ERROR 4) WILL BE ISSUED. 


TEST 20 CHECK SELF TEST, COPIER, AND ISSUE END OF PASS. 


SELF TEST (ESC T) IS ISSUED TO THE UNIT UNDER TEST AND AN om he 
TEST ERROR(ERROR 10) IS ISSUED IF THE UNIT CANNOT RESPOND T 
"ESCAPE 2°’ SEQUENCE AFTER SELF TEST IS COMPLETE. IF SELF TEST Ts 
sa a A... SCREEN IS WRITTEN TO 23 man? OF INCREMENT ING 
He = LINES OF hyde CHAR. INR . 
SCREEN COMMAND IS Weg (NOTE: THIS 
TO BE ‘BUSY'' AND NOT RESPOND a ANY FURTHER COMMANDS UNTIL THE 
SCREEN HAS BEEN COMPLETELY COPIED.) 


IF THE IDENT INDICATES A COPIER IS PRESENT AND THE COPY SCREEN _IS 
INITIATED,BUT NOT COMPLETED, A ‘PERIPHERAL ABORT'' (ERROR 20) 
ERROR IS ISSUED. 
**x*END OF AUTO-ACCEPTANCE TESTS*** 

**DO NOT LOOP ON THESE TESTS!!! !«« 
TEST 21 KEYBOARD ECHO TEST 
ROUTINE TO ECHO THE KEYBOARD. KEYS FOR TAB, BELL, CARRIAGE AND 

A tert? wer ft ee CHAR. — OC TAL 


LINE FEED ECHO 
EQUIVALENTS AND DISPL CHAR. ECHO ere VES AMPLE S= 
CHAR., SPACE, ESC, SPACE OR 037, SPACE.) A CONTROL C (003) WILL 
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637 CAUSE A TEST EXIT. 
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9.22 TEST 22 TEST A LINE PRINTER(PRINTER CONTROLLER MODE) 


ROUTINE TO ace THE VT61 AS _A PRINTER CONTROLLER. AFTER TEST 
MESSAGE IS DISPLAYED, THE TEST WA 

ENTERING TEST. A PATTERN OF INCREMENTING, ROLLING CHAR. WILL BE 
OUTPUTTED UNTIL A CONTROL C (003) IS RECEIVED. 


IF THE LINE PRINTER IS DISABLED AFTER THE INITIALIZATION OF THE 
TEST, A ‘PERIPHERAL ABORT'' (ERROR 20) IS ISSUED. 


TEST 23 UNIT SIMULATOR TEST 


ROUTINE TO LOOP DATA/COMMANDS FROM THE Ps s. BACK TO THE vT61. 
room TRANSMISSIONS RESULTING re. A ESC SEQUENCE WILL 7 BE 

ED AND WILL ENTER THE SCREEN ae HE CURSOR POSITION. _ THIS 
TEST CAN BE USED TO SIMULATE, OR CREATE, SPECIFIC SCREEN PATTERNS 
AND OPERATIONS. A CONTROL C (003) EXITS TEST. 


TEST 24 PRODUCTION KEYBOARD TEST 


PRODUCTION KEYBOARD TEST. ALL KEYS MUST BE DEPRESSED IN_ THE 
SEQUENCE INDICATED ON THE SCREEN. ALL ERRORS OR MISTAKES ARE 
DISPLAYED IN OCTAL POSITIONAL FORMAT AND THE CORRECT KEY POSITION 
IN THE ROW IS DISPLAYED IN DECIMAL. THIS TEST IS RUN IN 
MAINTENANCE MODE, THEREFORE THE KEYS WILL_ ECHO THEIR POSITION, 
NOT THEIR INDICATED MNEMONIC. 

FUNCTIONS. THESE TESTS ARE 


EXPLICITELY DEFINED BY MESSAGES Pa THE OPERATOR. 10 ERRORS WILL 


Poss AN AUTOMATIC EXIT FROM TES 


SEQ 0015 
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CZVTMA.P11 
676 
677 
686 


1 
1 
1 
1 
1 
1 
1 
1 
1 


A PR VAP AE AEE NO SON A i lat 
Ne BS YY YS YS SS re eee 


te ed nd od td 


& 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(7) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
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000200 
177776 
177774 


177570 


000000 
000001 
000002 
000003 
000004 
000005 
000006 
009007 
000006 
000007 


cy 30A(1052) 
6:29 


D2 
O7-NOV-78 15:00 PAGE 14-1 
SEQ 0016 


Mis" MD .MC ,CND 
- TITLE MAINDEC~11-DZVTM-A 
C) 1978 


*MAYNARD, MASS. 01754 

** 

;*PROGRAM BY TERMINAL DIAGNOSTICS 
3s 


:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC-C3), JAN 19, 1977. 


*SBTTL OPERATIONAL SWITCH SETTINGS 


HALT ON ere 


L ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT TRACE TRAP 
INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

od 8 LOOP ON TEST IN SWR<7:0> 
“SBTTL BASIC DEFINITIONS 


Cin hee OF THE STACK POINTER *** 1100 *** 
-EQUIV EMT,ERROR 3sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT:SCOPE ; BASIC DEFINITION OF SCOPE CALL 


: *MISCELLANEOUS DEFINITIONS 
HT= 11 ::CODE FOR yn ctf TAB 
23 ODE FOR LINE FEED 
:CODE FOR CARRIAGE RETURN 
:CODE FOR CARRIAGE BA FEED 
: EPROCESSOR STATUS WOR 
QUIV PSW 


.£ 
STKLMT= rey zrSTACK LIMIT REGISTER 

PIRQ= 177772 + PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ::HARDWAPE SWITCH REGISTER 

DDISP= 177570 : HARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= %0 NERAL REGIS 


Be Be Be «Be Be 
+n eee He He HR He SH 


RAL REGISTER 

REGISTER 

;;GENERAL REGISTER 
;: STACK POINTER 

; PROGRAM COUNTER 


:*PRIORITY LEVEL DEFINITIONS 
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+ sPRIORITY 


NOAWUESWN-O 


 EPRIORITY 
3*" ‘SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ash iii i i a ad td a 
eee eee ee ee ee ee ee a a a ee a ee eee le ele ae ae ae ea a 
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1) 


Ce Ee i Tt, St et, et a i ee, et, t,t et a a a a ee 
wo 2-2 3 ss on ss 9 3) G3 1 


wwe vee vye yw QVeVvVvuewVevuvevvVevuvuuvvvVevevvvyvuwvwy 


_— Ss ed I 


( 
( 
( 
( 
( 
( 
( 
( 
6 


8 


Neer ee ae) 


ARAARARARARARARA 
Naw wuevvuvvuwvw 


ww 


000046 
000052 


000200 
000204 


23-FEB-78 16:29 


000200 
000046 
011742 
000052 
000000 
000200 

00200 


0 
000137 002426 
000137 002476 


F 
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BASIC DEFINITIONS 
BIT07,B1T7 
BIT06.BIT6 


-EQUIV BITOO,BITO 


;*BASIC "'CPU'' TRAP VECTOR ADDRESSES - 
EC= ME OUT AND OTHER ERRORS 
MSD AND ILLEGAL INSTRUCTIONS 


; TRACE TRAP 
;;BREAKPOINT TRAP (BPT) 
33 eo ta TRAP (IOT) **SCOPE** 


POWER FAIL 
; ;EMULATOR TRAP (EMT) **ERROR** 
""TRAP’* TRAP 


ie TTY KEYBOARD VECTOR 
6 TTY PRINTER VECTOR 
PIROVEC=920 PROGRAM INTERRUPT REQUEST VECTOR 
-SBTTL TRAP CATCHER 


.=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A *'.+2,HALT'' 
>*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
: *LOCATION ! CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


.=174 
DISPREG: .WORD 0 SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 ZISOFTWARE SWITCH REGISTER 
.SBITL ACT11 HOOKS 


BR Be RHI KC He BI IH IC TTT RT TT TOTTORI TOOT TOTTI TOTTORI TTT tk 

“HOOKS REQUIRED BY ACT11 
$SV SypC= :SAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
“WORD 0 :22)SET LOC.52 TO ZERO 
-=$SVPC +: RESTORE PC 

MP AUTO ZUSE AUTO SELECTION OF UNITS 

MP MANS TALLOW OPERATOR SELECTIONOF UNITS/TESTS 


SEQ 0018 





Os 


G 2 
Ep 11=DZVIM-A ved th 30A(1052) O7-NOV-78 15:00 PAGE 14-4 
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-SBTTL COMMON TAGS 


28 3 


FARE REKEEEREEEEEEEREE RE RE EEK REE REE EREREREREREKE 


SATHIS TABLE y ote ye VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


SCMTAG: ::START OF COMMON TAGS 
SPASS: ‘ASS_COUN 

THE TEST NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 

SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 

ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR, INSTRUCTION 
ADDRESS OF ‘GOOD" 

ADDRESS OF "BAD" DATA. 
“GQ0D" DATA 


73 CONTAINS DATA 
; sRESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
:. INTERRUPT MODE INDICATOR 


: ADDRESS OF SWITCH REGISTER 
: ADDRESS OF DISPLAY REGISTER 
ttl KBD ee 


3s KBD BUFFE 
:zTTY PRINTER STATUS REG. ADDRESS 
eeTTy PRINTER BUFFER REG. ADDRESS 
; CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS # OF 4 ee CHARACTERS REQUIRED 
et FILL CHARS. AFTER A ‘LINE F 
7‘ TERMINAL A VAILABLE™ FLAG (BIT<07>=0=YES) 
+ SMAX, NUMBER OF ITERATIONS 
SCAPE : sESCAPE ON ERROR ADDRESS 
000377 e 6 > > pharelierg 33 CODE FOR BELL 
: STION MARK 
Aim + CARRIAGE RETURN 
<12> scLINE FEED 


DPE EERE RE EERE REE EKEREEREKKREKERKh 


USKRVSRARVSKRAVSS 
lelelelelelelelelelel lelelelelelelela) 


— SS Ss SS SS SS SS SS Sa = SS SS SS SS SS Ss SS Se 
Ss Ss SS SS Ss ns 9) — 2 + Ss os SS 4 os ss 


8888888S88888838888s8sssss 
DERREAGWWARUNS SESS 


MMA 


S8888888Ss8S 
aw’ em ee ed eed eed ed 
me me ee eed eed eed od 
NAVSLVSVSKUEN 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


Ro te Ss Ss 2 et 2 2 8 ot th ot oo oo sf) 
i ee de a 
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CZVTMA.P11 


RDARARARRRARAR RAR RAR 
OS Ss ss Ss os a ss 
ee ae ae a a 


696 
697 
698 
699 
700 
7C1 
702 
703 
704 
705 
706 


23-FEB-78 16:29 OR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 


seTHls TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

: *LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE ay AH i PERTINENT. 

; *NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERR 

> *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
;sPOINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

;sPOINTS TO THE DATA FORMAT 


SERRTB: 
GENERAL ESCAPE SEQUENCE ERROR MESSAGE 


026035 sAN ESCAPE SEQUENCE TO VT61_ FAIL 


:TEST#,ERROR PC,2 SEQUENCE BYTES, Sf SEQUENCE BYTES. 


RECEIVE STATUS ERROR MESSAGE 


sRECEIVE STATUS ERROR 
sADDRESS,STATUS ,ERR. BITS,CHAR. 


sRECIEVE SOFTWARE STATUS ERROR MESSAGE. 


;SOFTWARE (VSTAT) STATUS ERROR 
sPASSA#, TEST#,GOOD STATUS,RECEIVED STATUS 


DATA EXPECTED DOES NOT MATCH RECEIVE DATA, 
;TESTA,REC.CNT.,EXPECTED DATA, RECEIVE DATA 


001444 
RECEIVE BYTE COUNT ERROR 


026476 BYTES EXPECTED DOES NOT EQUAL BYTES RECEIVED. 
sBYTES EXPECTED, BYTES RECEIVED 


GENERAL DIRECT CURSOR ADDRESS FAILURE 


EM6 CURSOR POSITION ERROR 
_-. :GD LINE, GD COL., BD LINE, BAD COL. 


SEQ 0020 





Oz 


MAINDEC-11=DZVTM-A MACY11 —. 
CZVTMA.P11 23-FEB-78 16:29 


001252 001476 


026706 
027006 
001502 
001545 


027210 
027565 
001436 
001450 


027133 
026751 


001466 
001536 


027731 


I 2 
my = me 15:00 PAGE 14-6 
OR POINTER TABLE 


DF3 


DIRECT CURSOR ADDRESS ERROR 


;DIRECT CURSOR ADDRESS ERROR 
sPASSA#,TEST#,BD. ROW,BD. COL. 


;VT61 or tne SELF-TEST FUNCTION 
CSR, VEC 


gue? FAIL/HUNG ERROR MESSAGE 


3VT61 RECEI 
PASSA, TEST#,GD.CKSUM,BD CKSUM 


LAST TRANSMISSION TO VT61 CAUSED VT61 TO FAIL/HANG 
:PASSA,TEST#,ERROR PC 


;VT61 UNDERR TEST FAILED-ERROR DATA FOLLOWS 
PASSA, TESTA, ERROR PC. 


VER CHECKSUM ERROR 


sXOFF TO VT61 FAILED TO HALT BLOCK XMiT 
sPASS, TEST, VSTAT 


:XON FAILED TO RESTART BLOCK XMIT 


EM16 


7XON TO VT61 FAILED TO RESTART BLOCK XMIT 


SEQ 0021 





Oz 
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CZVTMA.P11 23-FEB-78 16:29 
001346 030375 
001350 001526 
001352 001536 


001354 
001356 
001360 


001116 
000000 
001126 
000 
000 
001 
001124 
000000 
002424 
001 
002424 
000000 


aoc-— 


001124 
000000 
000 


001122 
001116 

001 
001124 


OR POINTER TABLE 


3;NO XON AFTER UNIT WAS RESET. 
PASSA, TEST#,ERROR PC 


LAST PERIPHERAL OPERATION ABORTED. 
PASS, TEST,ERROR PC, VSTAT 


SOM OR EOM NOT REC. IN MAINT. MODE. 
“PASSA, TESTA#,EXP.STAT, ACT.STAT 


7NO SCROLL FROM LINE FEED OR CURSOR RIGHT. 


TSTNM, SERRPC ,SGDDAT , $BDDAT ,0 
SGDDAT , $BDDAT ,0 


. ’ . 


0,0 

1,3 DECIMAL TYPE 
$GDADR , $GDDAT , SBDADR, $BDDAT ,0 
SPASS, TSTNM,SERRPC ,0 

14,8 
$°4SS,TSTNM, $GDDAT , $BDDAT ,0 


SEQ 0022 
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ppeese 001120 001124 DTS: TSTNM, $GDADR , $GDDAT , S$BDDAT ,0 
001100 002424 001120 DT6: . SPASS,TSTNM, $GDADR ,0 
000000 


001 000 000 DF4: -BYTE 1,0,0 
000 001 DFS: -BYTE 0,0,1,1 


000 000 DF6: -BYTE 1,0,0,0 
- EVEN 


POP2SP =22626 
PUSH2SP =24646 


MAXTST =24 
CDS ISIOIUIOIUIDIOIISIOIOIIIDIDIDIIIOIOIOIOIIOIUIOIOIUIUIOIDISIIDIDIDIDIDIIDIUIDIDIOIIIDIDIUINE I OI 


;DEFINITION SOFTWARE STATUS(VSTAT) REGISTER BITS 


LTR RRERERERERERR RE 


: INSTRUCTION DEFINITIONS 


MAX. NO. OF TESTS 


RXOFF =100000 ; FOR XOFF, CLEARED FOR XON 
RSOM 00 ; FOR SOM (START OF MESSAGE). 
FOR — (END OF MESSAGE). 
FOR A PERIPHERAL ABORT. 
FOR RECEIVE STATUS ERROR. 
TO CALCULATE 61 REC. CHECKSUM 
WHEN END OF LINE DETECTED 
T WHEN OCTAL 33 RECEIVED. 
een TRANSMIT KILLLED. 


O CALCULATE 61 XMIT CHECKSUM 
WHEN REVERSE VIDEO MODE RECEIVED. 
TO CONVERT REC. CHAR. BY -137. 
FOR REC. INT. ON NON-SELECTED LINE. 
WHEN CURSOR POS. RECEIVED 
SET WHEN TERMINAL I.D. RECEVED. 
=000001 ; UPON TRANSMIT COMPLETE 


DD REE EER EERE ERE REE REE AREER ERR 


DEFINITION OF D211 CONTROL BITS 


STR RRR RE REE RE EE REE ERKREREREEEREEREE RR RE RK 


TRDY =100000 2 XMI T READY 
XENA 000 


7MAS ‘ 

MAINTENANCE MODE. 

MAINT. MODE ve XMIT INT. ENABLE. 

;REC. AND XMIT SCAN ENABLES. 
=100000 ZREG. 2, REC. BUFFER READY FLAG. 


003600 TOTCH =1920. ; TOTAL CHARACTERS ON SCREEN 





2 
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003601 TOTC1 =1921. ;TOTAL SCREEN +1 


J LRA AERA EERE EEE EERE REE EEEEREEKREERKEKKRRREKER EK 


FOLLOWING ARE DZ11 ADDRESS, VECTOR AND LINE STORAGE TABLES 

Ett itititititti titi iitie iit iisiiticitisiciitiiititititit tet i itt. 
;GOOD DZ11 VECTOR TABLE 
;GOOD DZ11 ADDRESS TABLE 
; TABLE OF POSSIBLE DZ11 ADDRESSES 
;TABLE OF D211 LI 
TABLE OF att PRESENT FLAGS 
SSCRATCH LOCATION. 

SMODEM PRESENT FLAG WORD 


CL RRR EERE EERE 


; CURRENT POINTERS FOR ADDRESSES, VECTORS AND LINES 
FDU III CIITA IIA IAS SAISASISI ANSI ISIS I AI ISAS AAA ISA 
VECTOR INDEX 
sADDRESS INDEX 
70711 LINE POINTER. 
MODEM FLAG TABLE POINTER 
;ADDRESS" TABLES. FOR Ak INTERFACES 
16001 0 ;BEGININNING OF FLOATING ADD. 
4000 END OF FLOATING ADD. 


Tab atndettendlecestaaubiimenikeres talilcretenarectiakedliainida 


;VT61 ADDRESSES IN TABLE REFLECT UNIT UNDER TEST 
FDU IORI IORI IIIT TTT IIA IIS I IIIS ISIS IAS IAI ISSA ANA ASN ASI S 
3DZ11 CONTROL AND STATUS. 
RECEIVE DATA BUFFER 


ER_TEST. 
OCT. EQUIV, OF TSTLNE (BIT8-11) 
CONSOLE RECEIVE Ss 
[CONSOLE DATA BUFFER 
:DZ BAUD RATE 
;EXPERIMENTAL LOCATION 


EXPERIMENTAL LOCATION 
;NULL CHARACTER FLAG FOR TRANSMIT INTERRUPT ROUTINE 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


DRE KER EERE KEIR REE REE REE KEE 


TABLE OF VT61 COMMAND AND SEQUENCES 
CTR RRR RR E RRR RR EER R RR ERE RRR E RR ERERERREEERRERKE 
007 ;BELL 
015 : CARRIAGE RETURN 
012 LINE FEED 
011 


. . , 
as OTT TTTTITTTTTITI TITLE TT TTL TT TTT TTT TTT ttt 


-WORD 01 ; TABLE DELIMITER (ESCN) 


MEITIIIIIIT TITTLE TITITI TILT TI LITTLE TTT 
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002156 


002160 


002162 


002164 


002166 


002170 


002172 


M 2 
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23-FEB-78 16:29 


ERROR POINTER TABLE 


.CHOM =110 
CHOM: .WORD 


.CRT =103 
CRT: WORD 


-CDWN = =102 
CDWN:  .WORD 


-CLFT =104 
CLFT: . WORD 


. CUP =101 
CUP: . WORD 


-EOS =112 
EOS: - WORD 


110 


103 


102 


104 


101 


112 


;HOME CURSOR H 


;CURSOR RIGHT C 


;CURSOR DOWN B 


CURSOR LEFT D 


;CURSOR UP A 


ERASE TO END OF SCREEN J 


SD REE EERREER RE RE RE KEE RE RER RR EKEEERE RE REEEEER EEE 


TABLE DELIMITER (ESCO) 


. 
DDE RR REE REE ERRERR EERE EERE ERE ERE KE 


-EMAIN =101 
MAIN: . 


-DRECT 


DRECT: 


- CLRCK 
CLRCK: 


-CLTCK 
CLTCK: 


101 
141 


105 
145 


103 


133 


134 


112 


152 


137 


sENTER MAINTENANCE MODE A 
EXIT MAINTENANCE MODE SA 


;LOCK KEYBOARD E 
;UNLOCK KEYBOARD SE 


ENABLE LINEAR MODE C 
CLEAR RECEIVER CHECKSUM [ 
:CLEAR TRANSMITTER CHECKSUM 
ENABLE REVERSE VIDEO J 
;DISABLE REVERSE VIDEO SJ 


INITIALIZE ABORT FLAG - 


LDR REAR RRA REA ERR RRA EKA 


. WORD 


; TABLE DELIMITER (ESCAPE P) 


SC RRR, CRA AR AERA REA RARRAERRAEAERRAAREERREKKERHEERE REE EE 


SEQ 0025 
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1006 
1007 
008 


e3 


Cooooco°0cKeo 
aS Oss SH SH 


NOWEWR—O 


02222 
002224 


002226 
002230 


002232 


002234 
002236 
002240 
002242 
002244 
002246 


002250 


002252 
002254 


002256 
002260 
002262 
002264 
002266 
002270 
002272 


002274 
002276 


002300 
002302 
002304 


002306 


23-FEB-78 16:29 ERROR POINTER T 


-EAPNT =131 
EAPNT: .WORD 131 
-DAPNT =171 

DAPNT: .WORD 171 


-EINST =111 
: 111 


151 


ENABLE AUTO PRINT MODE Y 
;DISABLE AUTO PRINT MODE SY 


ENABLE INSERT I 
ENABLE REPLACE SI 


SL AAR REE A ERA RAE EERE AREER RRR RRRRRARRERRRERRERERRERR EE 


. WORD 


; TABLE DELIMITER (1/0) 


33 ARRHRRARHRRERRERREREE REE RE EE RERRERRRRR RR ERER RRR 


-DCRAD =054433 
DCRAD: .WORD 954433 
-R23C79 = 


R23C79: WORD wees 
047433 


00131 
0 


047433 
000126 
0 


047433 
127 
0 


047433 


135 
0 


047433 


136 
0 


147433 
140 
0 


;DIRECT CURSOR ADDRESSING 
CURSOR TO LOWER RIGHT 


;DIRECT CURSOR ADDRESSING 
sREAD CURSOR POSITION Y 
ESCAPE 0 

; TRANSMIT ALL V 


sESCAPE 0 
;XMIT CHARACTER AT CURSOR. W 


ESCAPE O 
XMIT RECIEVER CHECKSUM J 


sESCAPE O 
7XMIT TRANSMITTER CHECKSUM 


ESCAPE 0 
READ THE ABORT FLAG. \ 


DD RRR REE RE RRERE RR EERRREERERRERERERRERKRERR e 


177777 -WORD =i 


END OF TABLE TERMINATOR 


SDAA ERREEREERERERR RE RRE RE RERE RR RE REERERERERE RR 


SEQ 0026 
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J LRA ARR AARREREREREEEREEREERERREEKEKEEREREERREEEEREREKEEKRERREREKE EE 


PERIPHERAL COMMANDS 


J LAER RARER EERE EREERKEEREEEEEREEKREEKREREEREREEREEKEK EE 


nmr 
NN 


ENABLE PRINT MODE. W 
sDISABLE PRINT MODE X 


COPY SCREEN 
:ENABLE AU oo 
[DISABLE AUTO 
:PRINT THE SCREEN H/SH 


S888 S838 
SNE SS 


SL ERK REE EREKEKEREEEREEKEEKKKEKEREEEEK EEK 


ESCAPE CODE EQUIVALENCES AND IDENTIFIERS 


FU IRE KEKE EKER EEE ERE K KK KEK 


=033 sPRIMARY ESCAPE CODE. 
;ESCAPE P 


TEST TERMINAL(ESC O T) 

sESCYI EQUALS DCRAD/DCRADI 

:SLASH CODE FOR TERMINAL IDENT ESC. 

; ENABLE REC.TO SUB 137 FROM ALL REC DATA 
ENABLE NORMAL RECEIVED DATA. 

[COPIER ABORT 

PRINTER hy 


SX 
Wel IDENT CODE 


BSLFIPSLSISLEGERE 


055033 ZOCTAL EQUIV. OF ESZ SEQUENCE 
122 :VT61 INITIALIZE R 
000033 : ESCAPE N-FLAG 
;ROW L_.. © 
ROWO1, COLUMN 20 
“ROW22. COL 00 
‘ROW 12,COLUMN 00 
;ROW23,COL.00 
:ROW,COL.11 
:ROW 0, COLUMN 20 
“ROW 00,COLUMN 8 
: ZWOR ZOCTAL EQUIV. OF CURSOR HOME. 
: ,WORD 007440 0, COLUMN 80. 
067067 R23C78: .WORD 067067 “ROW 23,COL. 78. 


SELKERASLES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


2 2 SM SS SS Ss 9 ss 3 Ss) Ss Ss SS 


ad ach ath and ah el lh el 
NOMWSWI © 
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—> 
> 


O 


33 
26 


eT 
Ooo 


tT HEN tmaixtnaae | ll!!! 
TEMPORARY STORAGE LOCATIONS AND 
SPECIAL RECEIVE CODE EQUIVALENCES. 
DDG ICI IIIS IOI IIIT OTST IS ASAI SASS AS ASA AA AAS 
START OF MESSAGE 
END OF MESSAGE 
; TURN OF F TRANSMISSION 


TURN ON TRANSMISSION 
[STORAGE FOR SINGLE CH. READ 
; ORAGE R1. 


R SELECT MODE 
“BYTEO=TEST ING MODE ,BYTE1= ene TYPE 
>COUNT OF INCOMPLETE XMITS 
:# OF ALLOWABLE INCOMPLETE XMITS. 


z:PRIMARY ESC COMMAND 
SEQUENCE ASSEMBLY AREA 


TEMP STORAGE FOR RO ONLY. 


sFLAG LOCATION FOR BLOCK MODE ei 
:DISPLAY STORAGE FOR TEST NUMBER 


DD RR ERE RE RK KREERIEKRKKEEKERKREKEREKEEEKEKE KK KKK 


sAUTOMATIC SELECTION OF UNITS. TESTS 1 THROUGH 33 WiLL BE 
sREPITIVELY EXECUTED FOR ALL UNITS. 


PESIIIIST ITT TTT TCC TCCTT CTE TTTeTTTCCTTTTTTTT TTT TTT TTT Tees 
012737 007000 002134 AUTO: #7000 ,BDRATF ;SET DEFAULT BAUD RATE TO 9600 
005037 001100 $PASS ;CLEAR PASS COUNT 
: ZERO THE MODE SWITCH 
E 3;DO VECTOR SETUP 
AUTOA: “SEE IF OPERATOR wr TO CHANGE BAUD 
AUTOB: C ; :GO FIND GOOD DZ11S 
RO,CDEV CHECK DZ11S FOUND 
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RO, INITA ; INSURE _VT61S ON DZ11 
MOD CK ;VT61_PRESENT -BEGIN TESTING 
AUTOB :NO VT61 FOUND LOOP IN CHECKING 


SL RRR EEE EERE REE KEEKREREEREREKEEREKRERKREKEEKKEKH 


s;MANUAL_UNIT AND TEST SELECTION. UNITS CAN BE 
;SELECTED VIA CONSOLE OR AUTO SELECTION CAN 
7BE UTILIZED. TESTS ENTERED VIA CONSOLE WILL 
;BE EXECUTED IN THE ORDER ENTERED. 


FDI II ICRI III OOOO IT ITT TOT ITA IAAI ASIAII SASSI IIA SII IIS SAS A: 
012737 007000 002134 MANS: #7000 ,BDRATE SET DEFAULT BAUD RATE TO 9600 
000001 : MODE TO MANUAL SELECT. 


002372 #1 ,MODE 
J SETA :GO_SET UP CONSTANTS 
MANSA: RO, GBDRT SEE IF OPERATOR WANTS TO CHANGE BAUD 


,DMANA 

RO, TRPVEC :FIND GOOD DZ11'S 

MO #INTAB,R3 
BLDADD: Re 


022010 BLDADA: :GET A KEYBOARD INPUT 
000054 C nS CHAR. = COMMA? 


:NO 
013532 :YES-VERIFY THIS oo 
P STORE THIS ADDRESS 
BL 7 AND LOOK FOR rr dat ADDRESS. 
002150 : a ee = LINE FEED? 


sANY ENTRIES CREATED? 
2$ NO USE AUTO SELECTION OF UNITS 
013532 ;YES-VERIFY THIS ADDRESS, 
> STORE a% ADDRESS, 
002364 SAND SET A TERMINATOR IN TABLE. 
: CHECK DZ11 My 61 SELECTED 


ed ad a td “go 8 od 
BELESRALLSSELEARAVALS IANA 


SeeeoRases 


2$: . CK 
‘VERIFY DZ11 HAVE VT61 ATTACHED 
:BEGIN Lie SELECTION 


BR MANSA I =, 
021706 3$: RO,OCTBIN :KEEP BUILDING ADDRESS 
BLDADA 


BR 
025651 BLDLNE : , DMANL : TYPE ENTER LINES MESSAGE. 
001632 MO A#DZLNE .R3 SET FIRST LINE ADDRESS. 
BLDLNA: R2 
022010 10$: J RO, GTNUM :GET A KEYBOARD INPUT 
000054 C R1,454 gan is = COMMA? 


1$ 
R2,(R3)+ sYES - sTOne THIS ADDRESS 
BR BLDLNA SAND LOOK FOR een LINE ENTRY. 
002150 : MPB a -LNFED CHAR. = LINE FEED? 
SYES-SET TERMINATIORS AND EXIT. 
021706 0, OCTBIN SNO-KEEP BUILDING ADDRESS 


MOMNMNMONMNINY 


NONID SS Se 
BWM SCODNAUSWN-—O 


aw) a) 


i 
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1 
1 
1 
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Ww 
_ 


BR 10$ 
: MOV R2, (R3)+ :STORE LAST ADDRESS. 
177777 MOV #-1, (R3)+ ‘STORE END OF ADD. TERMINATOR. 
CLR (R35 :STORE LAST LINE TERMINATOR 


025621 : TYPE , DMANB ; TYPE 2ND PART OF MANUAL MESSAGE 
001572 MOV Salta SUSE INTAB AS TEST # STORAGE. 


QEREAS 


OS 


: R2 
022610 : RO,GTNUM 
000054 R1,454 


1$ 
000024 lg “GREATER THAN THE NUMBER OF AVAILABLE TESTS? 


BR IF YES 
R2,(R3)+ He STORE A TEST 
R4 AND INCREMENT TEST COUNT. 
000040 MP R432. e? 


C OUNT 
MODCK 7 YES ACCEPT NO MORE ENTRIES. 
11$ NO KEEP LOOKING 
002150 : R1,LNFED SCHAR. = LINE FEED? 


NO 
R2, (R3)+ [LOAD THE LAST TEST 
(R3) ‘AND INSERT TEST TABLE TERMINATOR 
000001 002372 #1,MODE SSET MODE SWITCH TO MANUAL 
BR MODCK ‘AND BEGIN TESTING. 


021706 : RO,OCTBIN CONVERT CHAR. 
BR 10$ 


SER EW 


QAUSWN—O 


S 
N 


026031 12$: TYPE 
BR 


,QUES 
BLDTST :GO BACK AND GET ANOTHER RESPONSE 


ZAI IOIOIISISIOIOIDIOIOIOIOIIOIOIIOIOIOIIOIOIIOI IOI OTITIS OTT TOT OT TTT IE 
:THIS ROUTINE ASKS FOR A BAUD RATE OTHER THAN DEFAULT. 
;OPERATOR TYPES CR TO KEEP DEFAULT (9600) 


- 
DD EKER EERE KER EERE REE KEE EKER KKK 


GBDRT: R2 
025746 T -BRATE sASK FOR BAUD RATE (9600 IS DEFAULT) 
022010 1$: RO,GTNUM :GET THE NUMBER 
002150 LNFED,R1 ty FEED? 


2$ :BR IF SO 
021706 RO,OCTBIN CONVERT CHARACTER 
1$ [GET ANOTHER 
R2 : WAS 2 — SPECIFIED? 


3$ 
000017 R2,417 ; SEE IF VALID BAUD RATE 
GBDRT 


IF NOT 
Re MOVE INTO HIGH BYTE 
002134 . MOV Re -BORATE STORE IT 


DD ERR ERR EERE REE ERERERREEREEEREEEREEREEEE RR KEERKKEE 


THIS ROUTINE LOOKS FOR THE OPERATIONAL MODE REQUESTED AND 
SELECTS 74E NEXT UNIT TO BE TESTED. 
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1287 TE OQ = ACCEPTANCE TYPE TEST 


SEQ 0031 


= 


Om 


1S85 1 = OPERATOR SELECTION OF UNITS AND SEQUENCE OF TESTS. 
1290 


339 


SESSS REN SS SE TeSe 


WWWAWWWNWWNWNAWS 
and and ooh aad nd ah ch ccd eed ee 
WONAUSWN—O 


SISSIES ENS 


WWW 
Wr 


re yee ht yh ya 
BURAK 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
- 
5 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


eS 
~=O8 


SS ) 


1 
176730 
002372 


011636 
177200 


2124 
002074 


002124 


JCS OISISIIIOISISIISIIOISISISISI SISO IOI IOI IOI TIAA AISA IAA AAAI: 


mock : #DZTBL ,DZAPT 
MO AVVECT,VECPT 


002104 
MODCO: 


MO 
002124 : @LNEPT , TSTLNE 
MO @MNEPT ,MODEM 


002074 
177777 TSTLNE .#=1 
12$ 


002102 #2,LNEPT 


002076 #2,VECPT 
002104 #2 ,MNEPT 
MODCO 


~(SP) 
#100$,-(SP) 


#RCRLB+477 , REBUF 
#TCRLB+477, TEBUF 


RO,RESPTR 
BLKM 

XMZER 

VSTAT 

RO, CONVLN 
AMCLR,@VZCSR 
AMCLR,@VZCSR 
110$ 

TSTLNE ,R5 
MODEM 

111$ 


R5 
TSTLNE RS 
Ro aVXTCR 
#377, 


: INITIAL_SETUP OF ADDRESS 
>/AND POINTERS. 


;LOAD MODEM FLAG POINTE 
LOAD ADDRESS DESTINATION 
[LOAD CURRENT ADDRESS POINTER 
;LOAD CURRENT VECTOR POINTER 
zALL UNITS CHECKED? 

:NO_~ CONTINUE 

CHECK MODE 


:GO TO END OF PASS 
SMANUAL LOOP REQUESTED? 


:NO 
7 YES-RESTART COMPLETE TEST. 
TART MANUAL MODE 


GO RES 

NO-LOAD NEXT ADDRESSES 

SAVE ADDRESS POINTER. 

; STORE VECT. OF UNIT UNDER TEST 
YES ~- NOW SET UP hy VECTOR 

AND SET RECEIVER PSW TO 7 

:SET UP_TRANSMIT VECTOR 

SAND SET PSW TO 7. 

LOAD LINE TO UTILIZED. 

;LOAD MODEM FLAG FOR LINE. 

:THIS, LINE, F REALLY A SEPARATOR? 

= YES~BUMP LINE POINTER gees VECTOR 
; POINTER AND GET NEXT ADDRESS. 

[UPDATE MODEM FLAG POINTER 


:CLEAR THE PSW,LSI11 STYLE. 


SET UP END OF BUFFER 


: INITIIALIZE REC.BUFFER. 
INITIALIZE TRANSMIT BUFFER. 
;RESET INTERRUPT grees 


>CONVERT BINARY LINE # TO OCTAL. 
CLEAR SILO AND UARTS. 
[WAIT FOR CLEAR OPERATION TO FINISH 


;LOAD XMITTER CONTROL REG 


:WITH TRANSMIT ENABLE AND 
:DTR IF MODEM FLAG SET 


SET BOTH 
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030577 1138: RS, aVXBUF ;WAIT FOR CARRIER 
1775 BE 1138 


12$ 
: RS @VXTCR SET TRANSMIT ENABLE ONLY 
002072 : OCTLNE,SCRTCH GET THE LINE NUMBER. 

BDRATE,SCRTCH ADD IN SELECTED BAUD RATE 

MRXE!SCL,SCRTCH ;ADD IN ENB, STOP epee AND CHARACTER LENGTH 

MOV SCRTCH,@VRBUF ss; REGISTER 

176402 #SCAN,@VZCSR 

SCRTCH 


RO,ZFLAG 

(SP)+, IDENT 

11$ STF IDENT IS -1, 
002072 SCRTC [CAN WE TRY AGAIN? 
002072 000005 we 


’ a BRANCH 
002136 002140 :WAIT BEFORE RETRY 
002140 : Y 


AGAR RRR ES 36 


WWWNWWWNAWG 
as <aenie 
OONAW 


s TRY AGAIN 
002320 


Oiegec 002356 we ia alates :zPOP STACK INTO CHRD 
105037 002321 IDENT +1 ;CLEAR ALL BUT IDENT BITS. 
104401 001171 -$CRLF 
104401 027506 -DVUNIT ; ISSUE UNIT UNDER TEST MESSAGE 
013746 002112 VZCSR,=-(SP) :: SAVE VZCSR FOR TYPEQUT 
TYPE THE ADDRESS 

104403 O TYPE--OCTAL ASCII 

006 IGIT(S) 


6 
001 F 1 ; ZEROS 
017746 176254 @VECPT ,-(SP) 1 SAVE aVECPT FOR TYPEOUT 
TYPE THE VECTOR 
104403 3:0 TYPE~-OCTAL ASCII 
006 . 6 :eTYPE 6 DIGIT(S) 


000 . 0 3; SUPPRESS LEADING ZEROS 
013737 002126 002356 OCTLNE, CHRD 
013746 002356 CHRD ,-(SP) 27 SAVE CHRD FOR TYPEOUT 
score THE LINE 
104403 TYPE<-OCTAL ASCII 
006 ‘iF 6 DIGIT(S) 
: = SUPPRESS LEADING ZEROS 
D FOR TYPEOUT 


-_ = ow od ak a tk nd od od dd =) I I 
SARS wie 
We) NOU~Y Ww a" 


— 


_— 


000 ‘ 
013746 002320 MO DENT ,~(SP) 


6 
. 0 ;; SUPPRESS LEADING ZER 
001171 ,ScRLF ; CARRIAGE RETURN a CINE FEED 
000001 002320 > | adaaeaal UNIT HAVE A COPIER? 


NO 
027633 T -DCOPYR a VE SIS COPIER oe SSAe 
000002 002320 20$: : oy 0) -ADEME ;UNIT HAVE A PRINTER? 


NO 
027605 2LPRTR :YES=1SSUE PRINTER MESSAGE. 
002374 21$: ‘ FTLCNT CLEAR COUNT OF FATAL XMITS. 


ke ed ad SJ ed od os el ced eee cen A) ceed ced ced ed 
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( 
3 
( 
( 
( 
( 
3 
3 
( 
( 
( 
( 
13 
( 
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( 
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3 
3 
3 
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3 


— ee ed od ot od 


8 
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062737 000002 002104 #2,MNEPT UPDATE MODEM FLAG — 
06 000002 002102 #2,LNEPT ; POINTER. 
933676 033674 #ABBUF , ABUFP 3 a NTER 
000100 176146 I #RENA, aVZCSR ; SET ENABLE FOR TESTS 
002372 MODE CHECK TESTING MODE 


ASTRT 
012737 001572 002370 MINTAB,TSTPTR ;LOAD THE INITIAL TEST NUMBER 


DDG UIDIISICISIOISIIOIDIOIOIOIOIOIOISIDIICIIOIOIOIOIOI IOI ITO TIT TTT TOT TTT TT I TOT TIE 
DOIG OISISIOIDISIIISIOIOISIOISIOIOISIIOIDIIISIOICISIOIDIOIOISIOIOIOIOIOIOIOIOI IO ITI OTT TTI TOTTI TE 
THIS TEST ISSUES ALL ESCAPE SEQUENCES AND 
; INSURES THE VT61 HAS NOT FAILED re “a 
ZESC SEQUENCE BY ae A ESC Z TO FORCE A 
;VT61_ RESPONSE. THE PURPOSE OF THE TEST IS re ATTEMPT TO 
J gery? THAT ae hg! TESTS — NOT RESULT IN 
"HUNG'' UNIT IS NOT EVALUATED. 


os Gamiilnindaetanteniedieones tneinakocemisaimiaiiaaaa 


z 


agugadis i 


weed 


me ad ed wd ad a J 
SFE 


AAARR ENN 


SSeS 


ASTRT: 
SIUC CISIUIIIOIUIOISIOI II ISISIDISIDIOIUIOIOIOIOIOISIISIDIDIOIOIOIUIIDIOIIIOIOISIOIOIOIIIOIOI IR IOI I 
TST1: 
000001 001160 MO #1,$TIMES ::D0_1 ITERATION 
001106 MESTST,$LPADR ;;SET SCOPE LOOP ADDRESS 


—— nw 
~~ we ws 


002424 ESTST: STSTNM, TSTNM IN CASE OF ERROR - FOR TYPEOUT 
MO ABEL .R [POINT TO FIRST COMMAND 
176074 ee CLEAR REC. INT. ENABLE 


000100 
002410 


002364 MO core = (SP) 2 ZERO ON STACK 
002410 MO RESC eRe SET UP SEQNENCE ADDRESS 
: [LOAD THE COMMAND 
71F CHAR. ZERO,MUST * XMIT TERMINATOR 
; TABLE EXPENDED - EXIT TEST 
000004 SC CT 


“SEE IF FLAG INDICATING SEQ. 
100474 SEQ4 ‘4 IS SET. - YES EXIT 
010337 002412 $: R3,ESSEQ “PUSH THE SEQUENCE TO BE TESTED 
013746 002412 "MO ESSEQ,=-(SP) ::PUSH ESSEQ ON STACK 
005704 RL :DOES THIS SEQUENCE REQUIRE 
001402 3$ ADDITIONAL E 
013746 002410 ! PRESC,=(SP) PUSH PRESC iY STACK 
004037 015464 : RO, TESC :GO TRANSMIT THIS SEQUENCE. 
005704 : :IN 1/9 SEQUENCES? 
100011 ; 
012737 000054 021440 SYES,SET UP TO DELAY 1+# SEC. 

021376 


004037 »DELA 
bes 100000 175766 ! aReDv., a@VRBUF :CLEAR THE SILO 





ow 


— SS SY st ee SS 
KSSRSEKS 


g Segeeeeee | 
SR 


WARS 


EER 
ROS 
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004037 


012637 
123737 
001045 


ONeeer 
001375 
000722 


120327 
001407 


120327 
001412 


120327 
001413 
000714 


012704 
013737 
000706 


013737 
000702 
013737 
000676 
012704 
000673 
005703 
001704 
110322 
000303 


012637 
052777 


017672 
902356 
002356 


002356 


000901 
000002 


000003 


000001 
002326 


002250 
002314 


177777 


020074 


241 
002413 
001126 


002374 
002374 


002356 
000100 


MACY11 tina 
:29 


002320 


002410 


002410 


002410 


001124 
001126 


002376 


175540 


15:00 
RROR POINTER TABLE 


RO, ZFLAG 
(SP) +, CHRD 
CHRD, IDENT 
TIERR 

(SP) +, CHRD 
ZERST 
R3,A1 

1$ 

R3, 481101 
2 


R343 
3$ 
GCMD 


#1,R4 
ESCN,PRESC 
GCMD 

ESCO, @#PRESC 
GCMD 

ESCP, @#PRESC 
GCMD 

#-1,R4 

GCMD 

R3 

INXMT 
R3,(R2)+ 

R3 

R3,(R2)+ 
GCMD 


RO, CLREG 
PRESC ,$GDDAT 
$GDDAT 
ESSEQ, ree 
+ al 

1$ 

senoAT 

Fi CNT 


FTLCNT ,ALWCNT 
FTEX1 


POPIT 
(SP)+, CHRD 


RENA,@VZCSR 


eR: 
PAGE 14-19 


ISSUE ESC Z SEQUENCE-GET IDENT 
3;POP STACK INTO CHRD 

HAVE WE POPPED THE IDENT? 
;NO=ERROR CONDITION 

::POP STACK INTO CHRD 


GET NEXT COMMAND 


FIRST DELIMITER - SET ESCN 
SECOND DELIMITER = SET ESCO 


; THIRD DELIMITER = SET ESCP 
: INVALID CHARACTER = GET ANOTHER 


SET FIRST DELIMITER FLAG. 
7; INSERT ESCN, 


INSERT ESCO 
INSERT ESCP 


7SET FLAG INDICATING I/0 
; SEQUENCES. 


CHECK IF COMMAND = 0 

YES, COMPLETE SEQUENCE ASSEMBLED 
[NO = KEEP ASSEMBLING 

;POSITION HIGH ORDER BIT 

SAND ASSEMBLE IT 

[GET ANOTHER BYTE 


;AND INSERT IN ERROR 
sREASSEMBLE FAILING SEQUENCES 


:1F UPPER BYTE IS CLEAR DO NOT SWAP 


sMESSAGE 1 

; ISSUE ERROR MESSAGE 

: INCREMENT FATAL XMIT COUNT. 

arava rs EXCEEDED ALLOWED? 

CLEAR THE STACK AND TRY ANOTHER COMMAND 


3:POP STACK INTO CHRD 
SET THE REC. INT. ENABLE FOR TESTS 
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CLARE AREER REE EKER ERE REE REE 


:EOM 10. TO INSURE ENTERING MAINTENANCE MODE CAUSES SOM AND 


NTENANCE 3" IS ty THEN AN ESCAPE 7 SEQUNECE — 
:1S ISSUED TO THE UNIT AND THE RESULTING TRANSMISSION IS 
>CHECKED OF SOM/EOM. 


PETTITITIIIITI TTT TTT ITT TTT TTT TTT LTT TTL LL TLL LLL LLL LL LLL LLL 
CIO AIO IIIS IOIIOISIOIOIDIOISIOIIDIOIOIDISIOI IORI IOI OTITIS TIT TE 
000004 TST2: 
012737 000005 001160 #5, $TIMES ;DO_5 ITERATIONS 
012737 004370 001106 A#CKMNT ,SLPADR SISET SCOPE LOOP ADDRESS 
113737 001102 002424 CKMNT: STSTNM,TSTNM IN CASE OF ERROR - FOR TYPEOUT 
004037 RO,RESETV RESET THE UNIT AND SETMAINT. MODE. 
112777 000002 013054 #SOM, STBUFP ;XMIT THE START OF MESSAGE. 
004037 RO, XMIT1 
113777 2322 013042 ES(2,aTBUFP 
004037 RO, XMIT1 
113777 2323 013030 ESC2+1,aTBUFP 
004037 RO,XMIT1 
013016 ‘ #EOM ,@TBUFP :XMIT END CF MESSAGE. 


MIT 1 
SET UP FAILSAFE DELAY 


SEND AN IDENT REQUEST. 


#50. ,R1 
002420 : #RSOM,VSTAT SRECEIVED THE START OF MESSAGc? 
CKEQOM FAS LOOK FOR EOM. 
000001 021440 #1 ,DCOUNT [WAIT 20MS 
0215376 ay meLAY 


WAITED FULL COUNT? 
1$ BR IF NOT 
1$ AND KEEP LOOKING. 


000062 : #50. ,R1 ;SET MAX DELAY FOR 500 M. S. 
020000 002420 1$: #REOM, VSTAT :REECIVED END OF MESSAGE? 

10$ : YES-CHECK FOR ws RECEIVED. 
000001 021440 #1 ,DCOUNT :DELAY FOR 10 M 
021376 RO,DELAY 
R1 AND KEEP LOOKING. 


1$ 
040000 002420 : #RSOM,VSTAT te AE hy SOM? 
O ISSUE ERROR 
020000 002420 #REOM, VSTAT £RE CEIVED EOM? 
EXMNT ;YES, NO ERRORS~EXIT 
006001 001124 2$: #6001, $GDDAT [LOAD ERROR WITH EXPECTED 
002420 001126 ye 'at -meeas SAND ACTUAL STATUS. 


EXMNT: NOP 

CLARE REE E EE RRAEARA REE RERA EER REAEEERR ERE REEE ERE E 
; THIS TEST INSURES THAT THE CURSOR WILL RESPOND 
;TO DIRECT CUSROR ADDRESSING. THE a IS RESET AND THE CURSOR 
POSITION IS VERIFIED TO BE HOME . THE CURSOR IS THEN MOVED 
TO POSITION ROW 23 COLUMN 80 AND THE POSITION IS AGAIN 
‘VERIFIED. FRRORS ARE REPORTED IF THE POSITIONS ARE INCORRECT. 


LLAMA RARER AAA RARER RARER EERE RARE EREREREEEEERAREKKRR REE 
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020116 


032474 
002350 


002350 


020562 


017460 


00000 
020116 


032474 
002236 


002236 
020562 


000005 
005020 


001102 
017470 


RROR POINTER TABLE 


SAREE 


1813: 
001160 #5, STIMES 
001106 ACURS1, $LPADR 


002424 : ao TSTNM 
MO R1 


RO. RESETV 
ESCOI,(R1)+ 
RDCUR, (R1)+ 
#3,XMCNT 


RO, XMREC 
i 


2$ 
RCRLB,R1 
+ Tata 


12 
CUHME , ~ (SP) 
RO, CURER 


TBBUF ,R1 
DCRAD. (R1)+ 
R23C79, (R1)+ 
ESCOI,(R1)+ 
RDCUR. (R1)+ 
017466 T 


2$ 

ARCRLB,R1 
R23C79, (R1) 
2$ 

12 
R23C79,-(SP) 


RO,CURER 
es: 


3:;D0 5 ITERATIONS 
::SET SCOPE LOOP ADDRESS 


:IN CASE OF ERROR = FOR TYPEOUT 
SUSE R1 AS XMIT BUFFER POINTER. 
‘RESET THE UNIT AND WAIT FOR 
*CLFT. RESET, READ CURSOR 
POS « cur OR LEFT. 
:XMIT 3B 
:XMIT wo necene. 
: TRANSAISS10N CAUSED VT61 TO FAIL/HANG 
[GET THE CURRENT CURSOR POSITION. 
: CURSOR REALLY HOME ? 
;VT61 FAILURE MESSAGE 

SH CUHME ON STA 
60 LOAD AND ISSUE CURSOR ERROR 
:LOAD XMIT BUFFER WITH 
:CURSOR TO ROW 23,COL.79 
;READ CURSOR POSITION 
* MIT AND RECEIVE 
‘NORMAL 
:TRANSNS$ 108 CAUSED VT61 TO FAIL/HANG 
‘EXIT TEST 
; CHECK, CURSOR POSITION TO LOWER RT. 
*VT61 FAILURE MESSAGE 


; ;PUSH R23C79 ON STACK 
;LOAD AND ISSUE CURSOR ERROR . 


CDI GIOIUO I IOIOIOISIDISIOIOISIOIOIOIOIOIOIIDIDIOIOIOIOIOIOIOIUIOIOIOI I ISIOI III III III III III 
sROUTINE TO INSURE THE UNIT CAN ENTER LINEAR ADDRESSING 
s:MODE. 81 CHARACTERS ARE ISSUED TO THE UNIT UNDER TEST 
; THEN THE CURSOR POSITION IS READ AND MUST BE ROW1,COL.O. 


LURKER RRR E KERR EEKEE KEKE 


SERRE 


1514: 
001160 #5,$TIMES 
001106 #CKLIN, $LPADR 


002424 CKLIN: $7STNM,TSTNM 
RO,RESETV 


:2D0 5 ITERATIONS 
7zSET SCOPE LOOP ADDRESS 


IN CASE OF ERROR - FOR TYPEOUT 
[RESET THE UNIT-SET MAINT AND LINEAR MODES 
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S 


eee 


, 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
5 
1 
1 


YPSSIHSSSASAASA’NSS 
3 fy) SS SS 
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23-FEB-78 16:29 OR POINTER TABLE 


013701 
;LOAD XMIT BUFFER WITH 80 CHAR AND 
READ CURSOR POSINION. 
:XMIT THE BUFFER. 


zLAST XMIT CAUSED UNIT TO HANG. 
ie BR ~ LINXT EXIT TEST 
012020 : RO1C00, @RBBUF Se ROW1,COL. 0? 


LI ; 
001124 ESCO, $GDDAT 
$GDDAT 
001126 MOV yet! Aaa ISSUE ESC SEQUENCE AND CURSOR 


MO RO1C00,-(SP) 3=PUSH RO1COO ON STACK 
020562 : sont JSR RO, CURER 


ZO IOIOIIIOISIISIOISIDIIOIOIDIIOIOIOIOIOIIOIOIOIOIOIOIOIOIOII TOIT TAIT AAI ASIA IAI SASS A. 
pa3lJ TO INSURE OPERATION OF XON/XOFF COMMANDS 
FROM VT61. XOFF IS FORCED BY TRANSMITTING LINE a WHILE SIMUL- 
[TANEOUSLY FILLING THE SILO WITH DATA. AFTER SENS ING 
; THE XOFF, THE TEST WAITS FOR THE TRANSMIT TO FINISH AND 
INSURES KON OCCURS BEFORE THE MAX. TRANSFER TIME HAS ELAPSED. 
3 (30 SECONDS) 
ZUG IIOIDISIOIIIOIIIOIOIDIOIOIOISIDIOIOIOIOIOIOIOIUIOIDIOIOIOII IOI OI IOI ITT TT TOI TTT I TOT I 
CDOS ICIOIOIOIOIOIOIOIUIOIOIOIOIOIOIOIOIOI IIIT TOTTI TTT TOT TTT SAAS ASSIA. 
TST5: 
000010 001160 #10,$TIMES 3;D0_ 10 ITERATIONS 
001106 MO #BASC3,$LPADR ;;SET SCOPE LOOP ADDRESS 
002424 BASC3: TNM, TSTNM 7 IN CASE OF ERROR - FOR TYPEOUT 
MO TBBUF ,R1 R1 = 1ST XMIT BUFFER ADDRESS. 
002422 td Ue “SET XMIT TO SOM- DATA -EOM, 


tn RESET THE UNIT AND WAIT FOR XON. 
CURSOR TO ROW 23, COL.O 
; TRANSMIT THE LINE. 


340 CHAR. OF INCREMENTING CHAR, 
017466 MOV - XM SET UP TO XMIT 47 BYTES 

174636 ; TRANSMIT ENABLES 

021440 #180. R53 ;MAXIMUM DELAY EQUAL 400 M.S. 


0,DELAY : DELAY 4 i PULL ISEC, 
002420 #RXOFF ,VSTAT CHECK FOR X 
BN 3$ [FOUND IT EXIT. THIS SECTION. 
R3 ; DELAYED 400 M.S.? 
$ =NO-KEEP LOOKING FOR XOFF. 
Te [GENERAL _VT61 FAILURE MESSAGE 
012746 #100000,-(SP)  :,PUSH #100000 ON STACK 


SEQ 0037 
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017732 3 RO, CKSFT ;GO REPORT ERROR 
000001 0 ct ~ (SP) 3=PUSH #XMDNE ON STACK 
000062 P) 3;PUSH #50. ON STACK 
023074 
BR EXIT3 TIMEQUT-EXIT TEST. 
026332 000021 =RECEIVED A _XON? 
7; YES-NO ERROR-EXIT 


12 ;GENERAL_VT61 FAILURE MESSAGE 
000001 wetted rr >;PUSH #000001 ON STACK 
017732 J RO,C 

020502 EXITS: RO, RESPTR RESET INTERRUPT POINTERS. 


FREER AREER EERE EREREKERERE 


ROUTINE TO VERIFY OPERATION OF XOFF AND XON TO THE VT61. 
7A FULL SCREEN TRANSMIT IS ot A RF SERIES OF XOFF AND 


STOP, OR XON_ RESTART 
;THE TRANSMISSION. TEST IS ENDED WHEN EOM [S SENSED. 


DIDO UGGS IOS ISIIIS III I OISISIIOIIIDIDIOIOIOIIUISISISIIUUIOOI SOI IIIS ER 


SRE EERE AREA REREREAEREEEARRAEARERRERERRERERREREREREEEREREKEKRKR EE 


000004 : 
012737 000001 001160 MOV #1 ,$TIMES ;DO_1_ ITERATION 
012737 001106 MONOF 61, $LPADR SISET SCOPE LOOP ADDRESS 


113737 002424 : STSTNM, TSTNM IN CASE OF ERROR = FOR TYPEOUT 
J ;RESET THE UNIT AND WAIT FOR XON. 


RO,RESETV 
002420 #77577, VSTAT 


3 PUSH ESCO ON STACK 
021440 z sALLOW 100 M.S. FOR OPERATION 
J EGIN. 


3:70 8B 
012002 
;SEND A XOFF TO VT61. 


sALLOW 300M.S. FOR XMIT TO CEASE 
021440 

:XMIT STOPPED-GO RESTART IT. 

;CGUNTER NO EQUAL 300 MS-LOOP 


OF FLP 
001120 MOV VSTAT,$GDADR [UNIT DID NOT RESPOND TO XOFF 
15 ; ISSUE ERROR 


= sos 
=— = 
~ Rw 
— = 

Nn = 

Nn WwW 


011724 : AXON , aT BUF P 
RO,XMIT1 


3 


;SEND A XON TO THE VT61. 
MO\ #30. .R4 ;SET UP FOR 300MS DELAY. 
002420 : el ete 7EOM RECEIVED? 


ZYES-EXIT 
ACUFP RS 
021440 #1,DCOUNT 


ates 
Ww- 
Ww—?for 
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004037 021376 RO, DELAY ;ALLOW 300 MS FOR XMIT TO RESTART 
033674 ABUFP ,R5 
ONOF LP ;1T RESTARTED-GO STOP IT. 


R4 
BN ONLP ;NOT YET 300 MS LOOP. 
002420 MOV VSTAT ,$GDADR :XMIT DIT NOT RESTART - ISSUE 
16 ERROR AND EXIT 


FF Bala alalahabededaeenlabntetadededetabebetpb-taledptolbobelniadodyiataedabololalrtpdpdeabelalnipt-byb dala 
ROUTINE TO TEST VT61 RAM AND THE COMMUNICATION ays 
[THIS ROUTINE ISSUES A SERIES OF PATTERNS(77/100,100/77, 
752/125, INCREMENTING,AND REV. VIDEO INCREMENT INGS 10. THE VT61. 
STHE SCREEN IS THEN TRANSMITTED TO THE HOST AND AFTER EACH 
; ITERATION RECEIVED DATA IS CHECKED AND ALL ERRORS( INCLUDING 
TRANSMISSION) ARE REPORTED 


= 2 ARERR RRERERRERRRRRERE REE RRERE RRR R RRR 


3 
w 


PEPE it iit iititiititiitiitiiiitiitiitiititi iii iit) 
000004 TST7: 
012737 000001 #1,$TIMES 7:DO0_1 ITERATION 
072737 005640 #MEM1,$LPADR :;SET SCOPE LOOP ADDRESS 


113737 001102 MEM1 : STSTNM,TSTNM —; IN CASE OF ERROR - FOR TYPEOUT 
004037 017470 RO,RESETV :RESET THE UNIT AND WAIT FOR KON. 
R5 =CLEAR PATTERN OFFSET. 
MEMA : MPATT(RS),R4 | :LOAD PATTERN TO BE TRANSMMITTED 
INCLCT :RESET LINE COUNT FOR INC. PATTERN 
006502 #100040. INCSCH :RESET SEED CHAR. FOR INC. PATTERN 
SPTR sRESET POINTERS 
002420 Ronse VSTAT :CLEAR ALL FLAGS BUT XOFF AND XMKIL 
011552 #SOM. @TBUF P :MIT THE START OF MESSAGE. 
ATOTCH,R2 ;LOAD A COUNT OF SCREEN 
R2 DE CREMENT XMIT COUNT 
10$ ‘COUNT = ZERO? 


RO,PATGN ;NO-GENERATE NEXT Shi TO XMIT. 
R4,aTBUFP HARACTER 


RO,XMIT1 
002376 FTLCNT ,ALWCNT SEXCEEDED FATAL ERROR COUNT? 
MEMB :NO-CHECK IF ANOTHER TRANSMISSION REQUIRED. 
; MEMXT :YES-GO ABORT TEST. 
011500 : sys fb aa ;XMIT END OF MESSAGE. 


RO, XMIT 
020502 RO,RESPTR RESET INTERRUPT POINTERS. 
017460 BBUF ,R1 ;LOAD XMIT BUFFER WITH 
2326 C 


; CURSOR HOME 
ESCAPE 2 


XMTAL , (R1)+ er ALL 
Lee (R1) LINE FEED. 

10 017466 _XMCNT SET UP TO XMIT 8 BYTES 

020116 . RO; XMRE ( [XMIT,WAIT FOR REC. EOM 


ek es as as a 
SISSeSeGe 
NAW 


NNNNNN WA 
ae med ed ced ed ed ae aed 
OENAWUESWRY ~~ —O 


os 


BRANSSBSRVRKRAND 


NAIA AANA NAAR 


BUF 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


N 
RERRRRA 
ARWN OS 
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1$ ZNORMAL EXIT 
11 :LAST TRANSMIT CAUSED VT61 TO HANG 
JMP MEMXT TEXIT TEST 
002420 1$: W77577,VSTAT CLEAR ALL FLAGS BUT XOFF AND XMKIL 
CL INCLCT “RESET THE LINE COUNT FOR INC. PATTERN 
006502 #100040,INCSCH RESET THE SEED CHAR. FOR INC. PATTERN 
C R2 [CLEAR RECEIVE COUNTER. 
MPATT(R5) .RG ; LOAD PATTERN 
#TCRLB+300,R3 = SET UT ERROR STORAGE 
RBBUF ,R1 ;SET UP RECEIVE POINTER 
MEMC : D “SET UP TIME OUT DELAY 
017130 TRESET RECEIVE POINTER 
1$: ‘RECEIVED A CHAR 


oO. 


JINN 
IDES 


“N 
ve) 
USWNHO”0 


017130 
BN ME t. 
020000 002420 #REOM, VSTAT ; CEIVED EOM? 
BN CKDAT YES, GO CHECK FOR DATA ERRORS 
002414 DLAY [RUN TIME OUT 


DELAY. 
1$ :NOT EXPIRED=KEEP LOOKING. 
002374 FTLCNT ; TRANSMISSION FAILED-INCR. FATAL COUNT 


NNN N NN 
SRESBIIRAF 


z 
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006504 JMP 

MEMD : Re ;DATA_IN. INCREMENT COUNTER 
006360 [GET GOOD CHARACTER mite in R4 AND 
000010 4 R5 ding hy A REV. VIDEO DATA 


:NO-DO 
000200 ;YES-FORCE BIT 7. 
: MPB 1),R [COMPARE DATA 


MEMC 
003600 P : COMPARING LAST CHAR? 
MEMC :YES-NEVER COUNT AS A ERROR. 


033544 R3. ATCRLB+350 ;STORED 20 ERRORS? 
“ YES-STORE NO MORE. 
i fR3)+ * STORE THE GOOD DATA. 
(Ri), (R3)+ :STORE THE BAD DAT 
R2, (R3)+ TSTORE THE RECEIVE. COUNT. 


BR MEMC 
033474 $ y #TCRLB+300 ,R3 


CKMEM 
033474 #TCRLB+300,R1 ;LOAD FIRST ERROR ADDRESS. 
20074 RO, CLREG st REGISTERS 
(R1) +, $GDDAT 
(R1)+,$8DDAT 


(R1)+,$GDADR ; E COUNT 

4 S ISSUE DATA ee ne 
R1,R3 ISSUED ALL ERR 

1$ NO=CONT INUE 


N N 
N~N 
waoR 


103765 


020227 003600 : R2,A4TOTCH ;DID WE XFER 1920 TIMES? 
001406 1$ YES = GO CHECK STATUS 


FIPASISSSASARASASI 


1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
, 


g 





oz 


TMA MACY11 30A(1052) 
23-FEB-78 16:29 


012737 eit ee 001124 
Ay 4 001126 


dD. 4 
O7-NOV=78 15:00 PAGE 17 
ERROR POINTER TABLE 
MOV #TOTCH, $GDDAT 
MOV R2,$BDDAT 
ERROR 


:NO, PUT GOOD COUNT IN + 
:AND ACTUAL COUNT IN BDD 
ISSUE COUNT ERROR. 
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-_ 
Ww 


— 
Saas SP aR ISRERROCRE 
NOY 


CONAUESWNO ODONAULSWN-O 


ERSLAVLRAL 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BS 


Se 
Sat aesereiertetaetete 


— uw SS 
RALKKLKKK 
-[OOONOW 


— 4 -) 
Co 00 00 00 
NOM 
WESWPS 


012746 
37 


960000 
017732 
000002 


006460 


000010 
006474 
020442 
005654 


000200 


006500 
000121 
006500 
006502 
006502 
000177 
006460 


000177 
006460 


MACY11 30A(1052), 
:29 


006500 


006502 
006502 


~ 
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O7-NOV-78 15:00 PAGE 18 
OR POINTER TABLE 


1$: 
#60000,=-(SP) 3zPUSH #60000 ON STACK 
RO,CKSFT 


#2,R : INCREMENT Ha A POINTER 
MPATT(R5) STEST NEXT PATTERN 

MEMXT ; ZERO-END oF TEST EXI 

2$ NOT INCRMENTING PATTERN. 
——— 2 SET REVERSE VIDEO? 


AMSETREV,R3 TYES-ENTER REVERSE VIDEO 
RO,LDXMIT SAND RE-ISSUE Pearite it PATTERN. 
;NOT ZERO, GO EXERCISE IT 


:CLEAR REV. ey BIT IF SET. 
:CHECK R4 FOR PATTERN 

SIF MINUS, DO INCREMENT ING. 
: OTHERWISE SWAP BYTES AND 


sEXIT 
T INCREMENT THE LINE COUNT 
;REACHED FULL LINE? (80 CHAR.) 
BR IF NOT 
RESET COUNT 

a $a law NEW LINE WITH SEED CHAR. 


INCSCH ATE SEED A NEXT LINE 
Fe! od SCM “EXCEEDED LIMIT? 


BR IF NOT. 
MPATT(R5) ,INCSCH sRESET SEED 
R4 D ONE TO INCREMENTING 
ie HAVE + ream LIMIT 


2 EX] 
MPATT(R5) ,R4 3YES, RESET PATTERN AND 
RO SEXIT. 


037500 PATTERN 77,100 
;PATTERN 100,77 
PATTERN 52,125 
PATTERN INCREMENT ING 
° tet BL INCREMENTING-REV. VIDEO. 
-WORD 0 TTERN TABLE TERMINATOR 
SEQUENCE TO ENTER REVERSE VIDEO. 
SETREV: .BYTE .ESC,.0,.EEMP,0 


INCLCT: ;LINE COUNTER FOR INC. PATTERN 
INCSCH: :SEED CHARACTER FOR INC. PATTERN 
MEMXT: NOP 


CD RRR RRR RE RK RE RK REE KEE EERE KEE EEK KEKE 


ee TO TEST THE ABILITY 4 THE VT61 TO CALCULATE 
D TRANSMIT yen OF BOTH TRANSMITTED 

‘DATA. SUBTEST A 

[CHECKSUM ON EACH CHARAC RANSMITTED. 

sREQUESTIivG THE RECEIVER CHECKSUM IS EMBEDDED A 

:XMIT BUFFER AND THE RECEIVED CHECKSUM IS COMPARED TO THE 





oz 
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MAINDEC=1 
CZVTMA.P11 23-FEB-78 16:29 RROR POINTER TABLE SEQ 0044 
1857 Ae gee ihe SUBTEST B PERFORMS THE SAME TYPE OF CHECK ON 
1858 THE VT61 TRANSMIT CHECKSUM,UTILIZING THE hase SENT TO THE VT61 
1eep IN SUBTEST A,DURING A FULL SCREEN TRANSMIT 
1861 FRR ERE RRR EKER EERE ER ERE EERE EEE KEK 
1 
18 SRK EKER REE REE KKK REE REE KEEEREEKREKKKEEKEKKKKEKKEKEKK 
(2) 0065 000004 18110: SCOPE 
(1) 006510 012737 000003 0061160 MOV #3,$TIMES 3;D0_3_ ITERATIONS 
thos 006516 012737 006524 001106 MOV ACKSUMA,SLPADR ;;SET SCOPE LOOP ADDRESS 
1865 006524 113737 001102 002424 CKSUMA: MOVB $TSTNM, TSTNM 7 IN ae OF ERROR - FOR TYPEOUT 
1866 006532 004037 017470 JSR RO,RESETV ;RESET THE UNIT AND WAIT FOR XON. 
1867 006536 037 020502 JSR RO,RESPTR RESET INTERRUPT POINTERS 
1868 006542 012737 001001 002422 MOV #1001 -BLKM SET XMIT_TO SOM= DATA -EOM. 
1869 006550 012703 007160 MOV TSUMA RS :DIS. RECT. MODE AND CLEAR CHECKSUM 
1870 006554 00403 0442 JSR XMIT 
1871 006560 042737 077577 002420 BIC RODIN CLEAR ALL FLAGS BUT XOFF AND XMKIL 
1872 006566 013701 017460 MOV TBBUF ,R1 ;LOAD XMIT BUFFER WITH 
1873 006572 012703 000473 MOV #315. ,R3 
1874 006576 004 021442 JSR RO,BLDINC 3314 INCREMENTING CHAR. 
1875 006602 113721 002326 MOVB ESCN, (R1)+ 
1876 113721 002156 MOVB CHOM, (R1)+ ; CURSOR HOME 
1877 006612 113721 002250 MOVB ESCO, (R1)+ 
1878 006616 113721 002251 MOVB ESCO+1,(R1)+ 
006622 113711 002266 MOVB TXRCK, (R1) ; TRANSMIT RECEIVER CHECKSUM. 
1880 006626 005004 CLR R4 :CLEAR CHECKSUM REGISTER 
1881 006630 012705 000004 MOV #EOM,RS Ae CHECKSUM REG. WITH 
1882 006634 022120 JSR RO, CALCK [EOM FROM PRIOR XMIT 
1883 006640 052737 002000 002420 BIS #CKSUM, VSTAT [REQUEST CHECKSUM CALCULATIONS. 
1884 006646 012737 000500 017466 MOV #320. ,XMCNT :SETUP_TO XMIT 320 BYTES 
1885 006654 052777 040000 173230 BIS A#XENA, @VZCSR ; ENABLE XMIT INTERRUPTS 
1886 006662 012746 020000 MOV #REOM, ~ (SP) H #REOM ON STACK 
1887 006666 012746 000040 MOV #40,-(SP) ; PUSH #40 ON STACK 
1888 006672 004037 023074 JSR RO,WTBGND :LOOK FOR EOM. 
1889 006676 000534 BR CKEXT ERROR EXIT IF NOT FOUND 
1890 006700 127704 010220 CMPB @RBBUF ,R4 COMPARE CHECKSUMS 
1891 006704 001414 BEQ CKSUMB :GOOD GO TO SUBTEST B 
1892 006706 004037 020074 JSR RO, CLREG ;BAD ee i 
1893 006712 110437 001124 MOVB R4 ,$GDDAT LOAD CALCULATED CHECKSUM 
1894 006716 117737 010202 001126 MOVB @RABUF ,SBDDAT AND VT61 ~ ‘aia CHECKSUM 
1895 006724 104013 ERROR 13 yor ERROR 
1896 006726 012746 060001 MOV #60001 ,-(SP) H #60001 ON STACK 
y od 006732 004037 017732 JSR RO, CKSFT ‘ERROR. 
1899 006736 042737 077577 002420 CKSUMB: BIC -~ ble VSTAT CLEAR ALL FLAGS BUT XOFF AND XMKIL 
1900 006744 005004 CLR CLEAR CHECKSUM REGISTER 
1901 006746 052737 000100 002420 BIS PTXSUM, VSTAT >SET UP FOR XMIT CHECKSUM GENERATION, 
1902 006754 012737 001001 002422 MOV #1001,.BLKM SET XMIT TO SOM- DATA -EOM. 
1903 006762 013701 017460 MOV TBBUF ;R1 
1904 006766 004037 022166 JSR RO, LDBUF ;LOAD THE BUFFER WITH 
1905 006772 033 117 134 -BYTE .ESC,.0,.CLTCK,.ESC..0,.XMTAL,.ESC, ‘0, - TXTCK,0 
006775 033 117 126 
007000 033 117 136 
007003 000 
1906 007004 012737 000011 017466 MOV #9. ,XMCNT ;SET UP TO XMIT 9 BYTES 
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052777 


040000 
000001 


000002 
023074 


033674 
002414 
002374 


000004 


020000 
020000 


060001 


020502 


000005 
007212 


901 108 


173072 


024574 
002420 


002420 


001126 


001160 
001106 


002424 


07-NOV-78 
ERROR POINTER TABLE 


CKSRC: 
1$: 


2$: 


ITSUMA: 


CKEXT: 


BIS 


-BYTE 


JSR 


G 4 
15:00 PAGE 18-2 


#XENA, AVZCSR 
AXMDNE , = ( 


EXT 
#EOM, @ABUF P 
CKSRC 
#REOM, VSTAT 
#REOM, VSTAT 


76 

R4 , @RBBUF 
CKEXT 
RO,CLREG 
R4,,SGDDAT 
@RBBUF 


. SBDDAT 


7 
#60001 ,-(SP) 
RO, CKSFT 
CKEXT 


-ESC,.0, .DRECT, 


RO,RESPTR 


~ XMIT gag ah 
S3 AXMDNE ON S 
PUSH #2 ON STACK 

:LOOK FOR XMIT DONE. 

; TIME wu ~- EXIT i tg 
7SET UP TIME OUT DELAY 
RESET THE Py ithe FLAG 
RECEIVED A 

De CHECK wi 

:RUN TIME OUT DELAY. 


; TIMED OUT-INCREMENT FATAL XMIT COUNT 
: ISSUE HUNG MESSAGE AND EXIT. 


RECEIVED EQM CHAR? 


CLEAR THE EOM FLAG 

SNOW WAIT FOR LAST EOM FLAG 
FROM XMIT TRANSMITTER CHECKSUM, 
COMPARE 61 TO HOST CHECKSUM. 
SEQUAL = EXIT TEST 


;LOAD THE HOST CALCULATED CHECKSUM 
;LOAD THE VT61 TRANSMITTED CHECKSUM 
ISSUE VT61 XMIT CHECKSUM ERROR 
7;PUSH #60001 ON STACK 

CHECK FOR STATUS ERROR 


-ESC,.0,.CLRCK,0,0 


EU UIOIGIOIIDIIOIIOIOIOIOISIIINISIIOIIIUIOIOIUUIDIIUIUUIIUIDI IUD Ot iitntitins 
;ROUTINE TO INSURE BASIC CURSOR COMMANDS 
RESULT IN CORRECT CURSOR MOVEMENT. COMMANDS 


SARE ISSUED IN THE SEQUENCE: 
: CURSOR D URSOR LEF 
>CURSOR POSITION COMMAND {Ss 
CURSOR COMMAND AND CURRENT IS COMPARED TO GOOD 
[AND ANY ERRORS REPORTED. 


RESET, CURSOR RIGHT, 
T, AND CURSOR UP. THE READ 
ISSUED AFTER EVERY 


PT IIIIIIIL TTT TTT TTT ETT TTLTTELITI TITTLE LLL LTTE TTT 


CREAR ERR RE EER RARER EEE EAE RK ee 


TST11: 


CURS1A: 


#5 ,$TIMES 


#CURS1A,$LPADR 


STS, TSTNM 
RI 


AO. RESETV 
, LDBUF 


D0 5 ITERATIONS 
SISET SCOPE LOOP ADDRESS 


IN CASE OF ERROR = FOR TYPEQUT 
[LOAD XMIT ngs ADDRESS 

SRESET THE UNIT AND WAIT FOR XON, 
LOAD THE BUFFER WITH: 


ec .CRT,.ESC, Bc ORDCUR, .ESC,.CDWN, .ESC 


SEQ 0045 


nas 
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020116 


007402 


002326 
001124 
001126 
032474 
020562 


002166 


000005 
007432 


001102 
0 


002326 


001125 


001160 
001106 


002424 
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-0,.RDCUR,.ESC,.CLFT,.ESC,.0,.RDCUR 


-ESC,.CUP,.ESC,.0,.RDCUR, .BEL,0 


#20. ei SET TO XMIT 20 CHARACTERS 
#4 ,RECI SET RECEIVE ITERATION TO 4 
ATERLB+ 100, »WDSTOR; SET UP WORD STORAGE POINTER 


-AND WAIT FOR REC.DONE 


‘NORMAL EXI 

11 ‘LAST XMIT CAUSED VT61 TO HANG. 
CUR1X ‘EXIT TEST 

PEDCURP R1 *R1=GOOD POSITION TABLE 
#TCRLB+100,R2 :R2=ACTUAL CURSOR POSITION 
#CRT,R3 [R3=CURSOR COMMAND TABLE 


(R1),(R2) COMPARE GOOD TO ACTUAL 
2$ :O0K-GO UPDATE POINTERS. 
ESCN, $GDDAT +1 


(R3) , $GDDAT ;LOAD COMMAND IN ESC ERROR 
$BDDAT 


1 2 AND ISSUE IT 

(R2) ,RCRLB LOAD BAD CURSOR — 

(R1) ,-(SP) ‘PUSH (R1) ON STA 
RO, CURER ;LOAD AND ISSUE CURSRO ERROR MESSAGE 
(Ri) +, (R2)+ foe gy oo POSITION POINTERS. 
(R3)+,CUP [CHECK FOR COMMAND TERM. (CUP). 

12$ NOT AT, TERMINATOR~COMPARE AGAIN 

x 


GDCURP: . 
. WORD 
- WORD 
. WORD 
CUR1XT: NOP 


DOI IGIIDIOIIIDIOIUIOIOIIDIIIDIIIDIOIIIDIIDIUIOIUIIOIIOIISIOIIUIDIUOIIOOIO OOOO 
ene Ale TO INSURE THAT PEAD CHARACTER AT CURSOR 
FUNCTIONS CORRECTLY. COMMAND SEQUENCE IS: RESET, A, CURSOR 
LEFT READ CHARACTER AT CURSOR. 
AN ERROR IS REPORTED IF THE LAST READ IS NOT AN ‘‘A"’” 


SOE al crt a Mite eh AB TE Bh A Bi Bi AR 


weet Dt eee eee RRR RRR RRR RRR ERE EERE RARER ESSERE ERE RR EERE SERRE EEE EY 


1$112: SCOPE 
MOV #5, $TIMES ::D0 5 ITERATIONS 
#CURSIB,$LPADR ::SET SCOPE LOOP ADDRESS 


CURS1B: = aeh IN CASE OF ERROR = FOR TYPEQUT 
RO RESET eae? THE UNIT AND WAIT FOR KON, 


#41, (R1)+ 
ESCN.(R1)¢ 
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113721 1 CLFT,(R1)+ :CURSOR LEFT 
ESCOI,(R1)+ 
TCUCH, (R1) ; TRANSMIT CH. AT CURSOR 
000006 017466 V #6, XMCNT SET up TO XMIT 6 CHARACTERS 
020116 RO. XMRE C :XMIT STRING AND WAIT FOR EOM. 
10$ “NORMAL EXIT 
11 :LAST rT CAUSED VT61 TO HANG/FAIL 


BR 2$ 
007404 000101 : MPB ow ae ; CHARACTER READ=A 


:YES-NEXT SUBTEST 
002250 001124 ESCOI,$GDDAT 
$GDDAT sREASSEMBLE ESC DATA 


$BDDAT 

001127 MOVB TCUCH, $BDDAT+1 ;LOAD FAILING ESC SEQUENCE 
1 zAND ISSUE IT 
RO,CLREG 


iSR 
01 001124 MOVB #101, $GDDAT ;LOAD GOOD CH. AND CH. 
007334 091126 @RABUF , $BDDAT 
ERROR 4 ;READ AND ISSUE THEM. 


23: NOP sEND OF TEST 

FDR EO IO EIS ISIS IIIIOIIIUIOII IIIS I IOI 
ROUTINE TO VERIFY OPERATION OF REPLACE AND INSERT MODE. 
: INITIALLY ROW O IS WRITTEN TO 80 INCREMENTING CHAR 
7ON THE FIRST PASS(REPLACE MODE) A CHARACTER IS REPLACED 
;AT HOME AND TH ,* CHAR. AT ROWO,COL.0(172) AND ROW1, CO aa) 
SARE VERIFIED. ON THE SECOND PASS, INSERT MODE IS ENTERED 
sAND THE RESULTING INSERTION(AT HOME) IS VERIFIED.ROWO,COLO 
SHOULD BE 172 AND ROW1,COLO SHOULD BE 161 


DUE RRA EERE REE EEE REE RKKEERRERREREREKEEREAREEREEKEEEKEEK EK 


SRE REAEEL 
DONAUSWI—O 


MECC e cei i iii t tei rit iii iii itt t iti titi titi ttt titi iit t tt 
1S113: 

000005 001160 MOV #5, $TIMES :DO0 5 ITERATIONS 

007614 001106 MINRPL ,$LPADR SISET SCOPE LOOP ADDRESS 


001102 002424 INRPL: STSTNM, TSTNM 7 IN CASE OF ERROR - FOR Ios 
017470 J RO,RESETV *RESET THE UNIT 
017460 TBBUF ,R1 
R1 ;LEAVE ROOM IN BUFFER FOR SOM. 
000120 #80.,R3 :CREATE A LINE OF 80 INCREMENTING 
021442 Oe ED INC CHAR. ON THE SCREEN. 
TBBUF ,R3 
RO,LDXMIT 
RS ;USE RS AS TEST INDEXER. 
020364 : #2,R ;SET UP TO RECEIVE 2 CHAR. 
020370 i ,BYSTOR ;SET UP STORAGE AREA, 
J RO, LDBUF ;LOAD THE BUFFER WITH: 
its i "ESC, ~CHOM, 172, .€SC,.CHOM,.ESC..0,.TCUCH 
033 ‘ -ESC,.CDWN,.ESC,.0,.7CUCH,0 


117 000 
012737 017466 #13. ,XMCNT SET UP TO XMIT 13 CAHR, 





_- 


J. 4 
MAINDEC-11-DZVTM-A MACY11 _—. Ming re 15:00 PAGE 18-5 
CZVTMA.P11 23-FEB-78 16:29 RROR POINTER TABLE 


020116 RO, XMRE C 
BR 1$ :NORMAL EXIT 
Ue :LAST XMIT CAUSED UNIT TO HANG. 
010020 033374 : TDATA(RS) , TCRLB+200 ;COMPARE GOOD TO REC.DATA. 
:GOOD-LOOP OR EXIT. 
010012 001126 TFUNCT (RS) , $8DDAT 


002314 001124 MOV oe re ;LOAD ESCAPE SEQ. ERROR. 


: 3 INCREMENT 4 ta 
000004 CMP THRU WITH TEST? 
INRXT > YES~EXIT 
010024 #ENSRT ,R3 ZNO-SECOND PASS- ENTER 
020442 pe erst : INSERT MODE AND DO AGAIN. 


000111 177777 “FUNCT: .WORD .ERPL,.EINST,- 
000 172 DATA: .BYTE  172,0.172, 66 


oe 120 117. ENSRT: .BYTE  .ESC,.P,.EINST,0O 
000240 INRXT: NOP 


cee ROUTINE TO INSURE VT61 WILL SCROLL IF A LINE FEED 
ROUTINE TO INSURE VT61 wy SCROLL _IF A LINE F 
:I1S ISSUED FROM ROW 23 OR A DATA ENTRY FROM ROW2S, COL. oe 
z IN SUBTEST A, ROW O IS INTIIALLY WRITTEN TO A O AND ROW 1 
A 1. AFTER COMPLETION OF A LINE FEED(AND RESULTING. SCROLL?) 
‘ROW 00,COL.00 IS EXPECTED TO CONTAIN A 1. 
7 IN SUBTEST B, ve CURSOR IS PLACED AT ROW23, ~. 79 
A DATA CHARACTER ‘‘A'' IS ENTERED. THE CURSOR 
“POSITION IS_THEN READ AND SHOULD BE ROW23,COL.00. THE 
CHARACTER AT HOME IS VERIFIED TO BE A NULL 


ETS atte bl lw te A Bite oh BM, Fo Re FIOM 


. 
’ 


BUI IUIOIIIOIIOIIOIOIOIDIDISIOIIIOISIIOIOIOIOIOIOIOIOIOIOIOI TI OIOIOI III III III It 
000004 T5114: 

012737 000005 001160 M #5, STIMES 7:D0 5 ITERATIONS 

012737 010050 001106 #CKSCRA,$LPADR ::SET SCOPE LOOP ADDRESS 


113737 1102 002424 CKSCRA: STSTNM, TSTNM IN CASE OF ERROR =~ FOR PRINTOUT 
J RO, + why RESET THE UNIT. 
TBBUF ,R 
RO, LDBUF LOAD THE XMIT BUFFER Nae: 
nee . 60,.ESC,.CDWN, £8, AL? Tht EM oa VeoMeSex 


; 
067 


10 ° ~-LIWFED, .ESC,.CHOM,.ESC,.0,.1TCUCH, .BEL 0 


0 017466 \ #16. ,XMCNT SET UP TO XMIT 16 BYTES. 
020116 : RO, XMRE C 
BR 1$ NORMAL 


EXIT 
ie LAST a CAUSED UNIT TO HANG. 
GDSCRL EXIT TES 


lelelelelelelelelelelelelele) 
— et et os 3 = 2“) SS) = Ls 
aT HSSSS SORE 
~~ SS os 
MmrmO—-—-OCOoO 
SRVREVLRAS ae) 


WG 
ins) 
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127727 000061 1$: MPB @RBBUF #61 ; CHARACTER _AT_ HOME A 1? 
CKSCRB ;YES-NEXT TEST 
E 23 :NO- ISSUE NO SCROLL ERROR. 
020364 CKSCRB: #2,R ;SET UP FOR TWO REC. LOOPS. 
020366 MO ine ,WOSTOR SET UP CURSOR POSITION STROAGE. 


RO,LDB -LOAD XMIT BUFFER WITH: 
067 : R23, .€79,101,.ESC,.0,.RDCUR 
033 
033 : .ESC,.CHOM, .ESC,.0,.TCUCH,0 


000 
017466 #13. ,.XMCNT ;SET_UP TO XMIT 13 BYTES. 
RO, XMREC :XMIT AND WAIT FOR RECEIVED DONE. 


LAST WAIT | CAUSED VT61 TO HANG. 
002364 : MPB — @RABUF [NULL RECEIVED? 
SYES-EXIT TEST 
ee , 1NO- ISSUE NO SCROLL ERROR. 
006654 TCRLB+200, @RBBU LOAD RECEIVED CURSOR POSITION. 
R23C00,-(SP) PUSH R530 ON S 
RO, CURER :GO ISSUE CURSOR ERROR. 


Nm 
=i 


NoNoNnaNnoNnonoNngongNongnyry 
kd td nd ot 

NONONODY a @ SS oS 3 
—"ODONOUSWR oO 


FRR RRR ERE ERR KR KERR ERE KEKE EERE RRR EERE Ke 
THIS TEST INSURES THAT THE VT61 CURSOR CAN BE 
POSITIONED TO VERY POSSIBLE ROW/COLUMN POSITON 
:ON THE SCREEN. THIS IS TESTED BY FILLING THE 
COMPLETE SCREEN WITH A CHARACTER(A) AND THEN 
s:POSITONING THE CURSOR (VIA DCA) TO EVERY POSITION 
;AND THE ‘'A’' AT THAT POSITION IS REPLACED WITH A SPACE. 

THE SCREEN IS_THEN READ TO VERIFY THAT ONLY SPACES 
SEXIST ON THE SCREEN. ALL POSITIONS CONTAINING 
:NON=SPACES ARE REPORTED. 


CD RRR RK EERE KKKKEKEREREEEEREKEEKE KEE 


MINSMNMNMNONNNN 


kk ek ak ad a a a A A A 9 od th ot td oo 


CDOS IIOIOIISISISIIOIIIDIOIDISIOIOIOINISISISIOIIOIOIDIOIIOIOIOIDIDIDIIOIOIOITIOIOIIUITIOIII IOI IORI IO 
000004 TST15: SCOPE 
2737 000001 001160 MOV #1,$TIMES 7;D0_1 ITERATION 
2737 010300 001106 MCURS2,$LPADR ;;SET SCOPE LOOP ADDRESS 


077577 002420 BI] [CLEAR ALL FLAGS BUT XOFF oan XMIK IL 
017470 RESET RESET | THE UNIT AND WAIT FOR XON 
003600 MO LOAD A COUNT OF SCREEN(1920). 
007132 yeh :MMIT THE START OF MESSAGE. 


;DECREMENT XMIT COUNT 
:COUNT = ZERO? 


3f37 001102 002424 CURS2: $TSTNM,TSTNM IN CASE OF ERROR = FOR TYPEQUT 


000002 
020372 
001413 
112777 007114 S101 oTaurP ;LOAD THE CHARACTER(A), 


004037 v.xM ;NO-XMIT ANOTHER BYTE. 
023737 002374 002376 FILCNT,ALWCONT ;EXCEEDED FATAL ERROR COUNT? 


NMONMMNNNoNMNNNNNoNo 
MEKRERARARRRARWW—NWWAWWWWWaron 
DOBNRAUNRWN BOOMS SS NOUR ISVS 
oOo0O ODOCOCOCOCOO COO 

fo) oO oO 
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1$ iNO=CHECK IF XMIT COMPLETE. 
010754 C2xT “YES=GO ABORT TEST. 
10$: RO.RESPTR *RESET INTERRUPT POINTERS. 
020764 Rsco8, LINRW SSET UP 1ST ADDRESS 
TBBUF ,R1 ‘LOAD XMIT BUFFER WITH 
DCRAD, (R1)+ 


R1,R zR2 POINTS TO CURSOR ADD. IN BUFFER 
Res 78 (R1)+ : CURSOR TO LOWER RIGHT -1. 


(Ri)+ + SPACE 
#5, XMCNT ‘SET UP TO XMIT 5 CHARACTERS 
#77577 ,VSTAT : CLEAR ALL af LAss BUT XOFF AND XMKIL 
171444 #XENA, AVZCSR I RRUPTS. 


Nm 
— 
wi 
— 


000002 
023074 
C2xT 
002350 se°? . CUHME :DELETED TO HOME? 


NOMPONMNINo PN NNO NoNoNoNoNononononony 
NS Myvi 
aS& SFFLEARISSSVKALUN 


020660 RO, CMPOS ;NO=GET NEXT POSIT 1ON TO BE DELETED 
020764 LNRW, (R2) IN Wt BUFFER 
020502 : RO,RESPTR RESET INTERRUPT POINTERS 
002350 020764 CUHME , LNRW OAD INITIAL CHECK POSITION(HOME) 
017460 TRBUF »RT {TOAD XMIT BUFFER WITH 
R2 ‘STORE ERRORS IN XMIT BUFFER 
077577 002420 R9857, VSTAT :CLEAR ALL FLAGS BUT XOFF AND XMK IL 
#1001,BLKM ‘SET XMIT TO SOM- DATA -EOM 
ESCN, (R1) + 
CHOM, (R1)+ : CURSOR HOME 
ESCO. (R1)+ 
XMTAL , (R1)+ ; TRANSMIT ALL 
#5, XMCNT 
WXENA,a@VZCSR —; SET XM ENABLE 
AXMDNE , = (SP) 
000003 #3,-(SP) 
023074 RO, WTBGND 
017130 : RBUFP,R1 “SET UP RECEIVE FLAG 
002414 DLAY [SET UP TIME OUT DELAY 
017130 : R .RBUFP * CHARACTER RECEIVED? 


:YES-GO CHECK IT. 
020000 MREOM,VSTAT LOOK 
BN C2CK 
002414 


Rononony 
—_ od =) od 

NNN 
RAN 


ELA 
:AND LOOK FOR RECEIVED CH. 
[LAST XMIT CAUSED VT61 TO HANG, 
BR :GO SEE IF ANY ERRORS STORED. 

017124 017130 : ;RESET wel AS 
006240 000040 @RBBUF , #40 Be QUAL _A SPACE? 

6$ [NOT A SPACE-MUST BE ERROR-STORE IT 
020722 : ° s [UPDATE CURSOR POSITION 


033220 : #TCRLB+20, ,R2 ; STORED 10 ERRORS? 
5$ :YES-IGNORE ANY FURTHER ERRORS. 
020764 Li, (R2)* ‘STORE FAILING CURSOR POSITION 


Sve 
—s 


3 
SESS 


o-oo 
—On 
wn 
NNNN 


8 





MAINDEC-11=DZV 
CZVTMA.P11 


010754 


010756 


Oo 
ae) 


mee ek ae at ad ed kd a oa od oe 2s 
oo ooo°o 
ELAERREASS 


RwpN——SeQVTF 


elolololoielololotololotolololototeiotote) 
Ayo 
EORSESKRSARN 


TM-A 
23-FEB-78 


020237 
001416 


000004 
012737 
012737 
113737 


MACY11 waste 


16:29 


017460 
017460 
002236 


020040 
006160 
020562 


000005 
010774 


000004 
020116 


001160 
001106 


002424 
040 


117 
000 
017466 


017466 


Rtn wis 


OR POINTER T 


C2CK: 


1$: 


C2xT: 


15: time PAGE "8-8 


R2, TBBUF 
C2xT 


TBBUF ,R1 
(R1) ,R23C79 
C2xXT 


12 

#20040 ,-(SP) 
(R1) +, @RBBUF 

RO, CURER 
1,R2 


1$ 


s ANY tm STORED? 
;NO EXIT TEST 
;USE R1 AS ERROR POINTER 


AN OR. 
7NO=ISSUE ERROR MESSAGES 
;PUSH #20040 ON STACK 
; LOAD POS. 


; DONE WITH teas Y 
DUMP ANOTHER 
TEXIT TEST 


SL ARERR RRR AREER EERE REE 


:ROUT INE TO INSURE PROPER OPERATION OF CARRIAGE RETURN 


{ MODE. INITIALLY THE CURSOR IS 
COL 20 AND A LINE FEEL IS ISSUED 


° I o . . ) TO ROWO, 
; THE CURSOR POSITION IS THEN READ AND MUST BE ROW1,COL20. 
fo pe hou. oY st IS THEN ISSUED AND CURSOR POSITION VERIFIED 


6 MARAE RAARAE EERE AAEEER AEE EERE REE REE REEe 


DDO IOIUIUIOIISISIIOIDIOIDIDIDIOIOIOIOIDIOINISIOIIOIOIUIUIDIOISIIIOIOIOIOIIOIUIDIOIDIDIDIOIUIOIIIIIUIOE A IOI 


TST16: 


#5 ,$TIMES 
#NWLN, $LPADR 


$TSTNM, TSTNM 
RO,RESETV 
TRBUF ,R1 

RO, LDBUF 


.ESC,.Y,.ROO,.C 
-LNFED,.ESC,.0, 


4$ 

20 ae 
S$GDDAT 
thane 


RO1C20,-(SP) 
0 ER 


RI 
CARRT.(R1)+ 
ESCOI.(R1)+ 
RDCUR. (R1)+ 
#4, XMCNT 

Ro. XMRE ( 
40$ 


20 
.RDCUR, .BEL 0 


3:D0_5 ITERATIONS 
::SET SCOPE LOOP ADDRESS 


iN CASE OF ERROR - FOR PRINTOUT 
RESET THE UNIT AND ENTER MAINT .MODE 


;LOAD XMIT BUFFER WITH- 


;SETUP TO XMIT 9 CHARACTERS 
DO IT 


‘NORMAL EXIT 
; TRANSMISSION CAUSED VT61 TO FAIL/HANG 


EXIT TEST 
CHECK CURSOR POS. S/B ROW 1, COL 20. 


ISSUE IT 
: 2PUSH RO1C20 ON STACK 
SETUP AND ISSUE CURSOR ERROR ~ 


;LOAD XMIT BUFFER WITH 

CARRIAGE RETURN, READ CURSOR 
POSITION 

;SET Hs TRANSMIT 4 CHARACTERS 


GO DO 
[NORMAL EXIT, 


SEQ 0051 
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A it ‘emt Teate CAUSED VT61 TO FAIL/HANG 
902330 : ne ; CHECK CURSOR aol = ROW1, COL 0. 


$ :EXIT TEST IF GOO 
001124 $GDDAT 
002146 CARRT , SBDDAT 
s ISSUE IT 


1 
002330 MO RO1C00,=(SP) : :PUSH RO1COO ON STACK 
020562 RO, CURER ;SET UP AND ISSUE CURSOR ERROR 


2258 
2259 
2260 


eleleleleleleloleala) 
ee ee ed ee eed eed 
ee ee 
ee SS ees 
foat@aleaP a? >? ae 
OFNENO 


SRSF 


STARR ARERR EERE REAR EAE EREREREREARAER AERA EH 


ROUTINE TO VERIFY PROPER OPERATION OF ERASE TO END-OF - 
; SCREEN. SCREEN IS WRITTEN TO 1920 cig yi-y CHAR. 
;ERASE TO END OF SCREEN IS THEN ISSUED AND THE 

ENTIRE SCREEN IS READ VERIFYING THAT IT IS ALL NULLS. 


ETITISIITITITITTITTTITTT ITT LETTE LE ELLE LETT TTT Te 


METITITITIIITITIITITTLITIT TIT LILI LTLL LLL LLL LLL TTT 
000004 T5117: 
012737 000003 #3, $TIMES 3;DO0 3 ITERATIONS 
012737 011220 : #ERSE , SLPADR 3zSET SCOPE LOOP ADDRESS 


113737 ? : $TSTNM,TSTNM IN CASE OF ERROR - FOR PRINTOUT 
J RO,RESETV RESET THE UNIT SET MAINT. MODE. 
@RABUF CLEAR _THE CHECK LOCATION. 
FILL THE SCREEN. 


DBUF LOAD XMIT BUFFER WITH: 
ESC,.CHOM, .ESC, £05. .E5C,.0,.XMTAL-O 


ESCN, $GDDAT +1 
EOS, $GDDAT ;LOAD ERROR WITH ERASE TO EOS 
SADDAT 


ety 
sto s 


S 


000007 ;SET_UP TO XMIT 7 BYTES 
020116 rh, °° ;XMIT AND WAIT FOR REC. DONE 


sESC_ERROR 
BR ERSXT EXIT TEST 
005572 : :VT61 AITTED SOM/EOM ONLY? 
ERSXT SYES-EXIT TES 
;NO=ERASE TO END OF SCREEN 
;GO CLEAR ERROR STORAGE 


; ISSUE DATA ERROR 


WIWNWWNNWAW 
Mrorenr— 
ALkMNeOL 


aS 


020074 
005554 


011 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


DARK 
NLS O 


ERR 
ERSXT: NOP 


IGN 


SFA, CHAKRA REA ARERE RR E ER RAREREAR ERE 


ROUTINE TO SET UP END OF PASS INDICATION, 
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WILL C 
: UNIT TO TO ANY FURTHER COMMANDS 
sUNTIL THE SCREEN HAS BEEN COMPLETELY COPIED.) 


J FERRARA ARERR EEEERERERERRRERREREERRRERRRERERRRREERRERERK 


at Sea ft ral Pat Poet ttt toed et 
WONAUSWIN—O 


es 


SEERA EAREEERAREEERERERERAERAERRARERERREREEREEEREEKKKEE 


+8120: 
000001 MOV #1, STIMES z:D0 1 ITERATION 
011374 #LSTST,S$LPADR ::SET SCOPE LOOP ADDRESS 


LSTST: STSTNM, TSTNM 2 IN CASE OF ERROR = FOR PRINTOUT 
MO ZERO, =(SP) K 


SEs 


REVS 


1$ 
VZCSR SGDDAT 
T, $BDDAT 


1 ae a sae : 
077577 ; #77577 ,VSTAT 7CLEAR ALL ta an XOFF AND XMKIL. 


017460 TBBUF ,R1 7SET UP BEG. XMIT BUFFER 
5 FILL BUFFER wITH INCREMENTING CHAR. 


4 XMIT TO SOM- DATA -EOM. 
ND 12 LINE TO VT61 
ZENABLE XMIT INTERRUPTS 
#XMDNE ON STACK 


PUSH #240 ON — 
zL FOR 


SNOT FOUND~EXIT 

; DONE we SCREEN? 

3$ ; YES~EXIT 

ASETREV,R3 :NO-ISSUE ENTER REVERSE VIDEO 
RO, LDXMIT 7ESCAPE SEQUENCE. 

BUBCT 2 INCREMENT SCREEN HALF FLAG. 

2$ ISSUE oie HALF IN REV. VIDEO. 
#B1T00, IDENT :IDENT = COPIER? 
ENDSEL 


PUSH ZERO ON STACK 
: TPUSH #.CPYSC ON STACK 
PUSH ESCN ON STACK 


CHECK FOR A PERIPHERAL ABORT. 
:1F IN MAN MODE DO NOT ENTER EOP. 


REEEERE EW 
RESRVG 


PRNEE 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Sexe 8 
2 0 
37 0 
38 0 
0 
3%40 0 
3%41 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


MINIM IP NNoNoNoNoNNory 
BSESSERES 
RERNERERERSERONES ENS 


AXXO 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


—_ 
URRSaRS 


lee. 
Ww 


760 
003234 : : CHECK FOR MORE LINES BEFORE EOP 
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011636 
a7 


ENDPS: 
-SBTTL END OF PASS ROUTINE 


irri iii titi i titi tt ities 
“ kINCREMENT THE PASS oA (SPASS) 
is INDICAT E ak teat’ te FTER 1 PASSES THRU THE PROGRAM 
;*TYPE “END PASS # —_ MXXXX IS A DECIMAL NUMBER) 
:*IF SW12=1 INHIBIT TRACE T 
:*IF THERES A MONITOR GO iT IT 
:*IF THERE ISN'T JUMP TO MODCK 


SEOP: 


STSTNM 
STIMES 


SPASS 
#100000, $PASS 


ay THE TEST NUMBER 
O THE NUMBER OF ITERATIONS 
: INCREMENT THE PASS NUMBER 
pip ALLOW A NEG. NUMBER 


(PC) + 
SEOPCT: 1 


SRRLSES RS 


NN 
MALNO 


$DOAGN 77 YES 
(PC)+,a(PC)+ ; RESTORE COUNTER 
SENDCT: . 1 


AXARXAX 
NN 


, SENDMG :TYPE ‘END PASS .. 
$SPASS,-(SP) : SAVE SPASS FOR TYPEOUT 
TYPE=-DECIMAL ASCII WITH SIGN 
37 YPE A NULL CHARACTER 
$GET42: a442 2 iGET MONITOR ADDRESS 
sBRANCH IF NO MONITOR 
~(SP) 3 INSURE THE neath > ae 
#$CLR.T,-(SP) : SETUP gh RTI ORR 
SRTRN 7:60 DO AN RTI OR RTT to. LOAD THE PSW 
3:WITH A CLEARED ''T’’ BIT 


ase, - + ¢ INSURE A CONTAINS THE MONI TORS 
$DOA URN_ADDRESS 


PC, (RO) 


33 


mmwn—— 
SNOFO 


BON S 


iy OLD PSW AND PC ON STACK 
000020 CLEAR THE ''T'' BIT . 
010000 RUN WITH TRACE TRAP? . 


: 5 
012014 IS i! LS te FOR TRACE TRAP 


000020 SP) 3ISET TRACE TRAP 
012010 1$: MO . JUMP TO START OF TEST 
$RTRN: 2 RE TURNE-THIS, IS_CHANGED TO 
"RIT IF ‘RTT’ IS A LEGAL 
‘INSTRUCTION 


7 RETURN 


NNN 
SMNMOAKNO 


& 


SOOSOOSSOSOOSSSSSHGSOSSSHD DBDOCOCOOCOCOSCOCOCOCSCCSCOCCOCCOoOo 


a kd dk ed ad oe — oe ss es SS Ss SS SS Ss SS SYS SS os Ss ss SS SS 
NON SS SS SO es Ss Ss Ss SS SS SS SS SS SS YS Ss Ss OS 


SSIIy 
MALO 


$LOOP: 
JMP 
$RINAD: . 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


st a ss 9 21s 2 IY) SS 9 3) 9 Ss Ss Ss 9 2 2 sh a YQ) PS 2 9 9 Sh Ss 
ett i i i i i ahh he a hh hh eh a ah a 
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$TBIT: .WORD 0, zi°'T'" BIT STATE INDICATOR 
: BYTE 9 [NULL CHARACTER STRING 
SENDMG: .ASCIZ <iged >/END PASS’ #/ 


a3 
#8 


2412 
051501 


nARAA 
ed cd od ed 
wee ee we 
oo00o 
Bey oh 
ERVSR 


3 


Peet iti iii titi ii tititiiiiiiiy 
ROUTINE TO ECHO THE KEYBOARD. KEYS FOR TAB,BELL,CARRIAGE 
SAND LINE FEED ECHO A MNEMONIC ag CHAR. ECHO OCTAL 
arpakny ood, AND DISPLAY CHAR. ECHO T LVES. 
; CEXAMPLES=CHAR. ,SPACE, ESC, SPACE OR "O37, SPACE. dA 
SCONTROL C (003) WILL CAUSE’A TEST EXIT. 


FF RAR AAA AERERKRRERRREERKEREEREREREEERREREEREEEEKEEKRHE 


SEs 


aa 


vwrywn-oo 


NMnofenonononononoefty 
we 


5 LAER EAE EE EEEEEREEREKEREREREREEKEERERERREKEKEREREKEKKEE 


$121: 
000001 MO #1,$TIMES ::D0 1 ITERATION 
012054 #KYBD,$LPADR  ::SET SCOPE LOOP ADDRESS 


KYBD: STSTNM, TSTNM IN CASE OF ERROR - FOR PRINTOUT 
J RO,RESPTR 
#DKYBD ,R2 LOAD MESSAGE ADDRESS INR2 


DISPLAY KEYBOARD MESSAGE 
ISSUE CONTROL C EXIT MESSAGE 


a itetanh ah, | 
NNN 


J RO,LDXMIT : ISSUE EXIT MAINTENANCE MODE. 
KYSTRT: BIC #77577, VSTAT =sCLEAR ALL FLAGS BUT XOFF AND XMKIL. 
021544 T @ABUF P SEE IF A CHAR. RECEIVED 
BNE 11$ BAS ae wy IT 
[WAIT FOR A CH 


021534 i1$: @ABUFP,R1 :GET RAW RECEIVED DATA 
023020 RO, EXTST IT CONDITIONS 
BR 10$ : ONT INUE . 


003760 ASTRT 
021516 : @ABUF P *¢ 
000400 002420 + lend + CHAR. =ESC (033)? 


017132 ESAMB YES ~ RESET ESC ASSEMBLY FLAG 
030471 :LOAD ESC MESSAGE ADDRESS 


BR 
000041 : CHAR. LESS THAN 41 OR 
HIGHER THAN 176, GO ECHO 
000176 MPB pit sOCTAL EQUIVALENT 


005244 ;LGAD CHAR. IN XMIT BUFF. 
020372 0; XMI £60 wm 1 

000040 005232 LOAD A SBACE 

020372 RO, XMIT1 SAND 3 

002144 R at CAR. =BELL? 

030745 MO LBS "— ;LOAD BELL MESSAGE ADDRESS 


002152 Ri, AB CHAR, =TAB? 


2106 
2112 
2116 
2126 
2130 
2132 
2134 
2140 
2144 
2146 
2152 
2156 
2164 
2166 
2172 
2176 
2200 
2204 
2206 
2212 
2214 
2220 
2224 
2 


WRIWNAN PY) 
WNAWANNNNN NPR NYUIN & 
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030726 MO ;YES-ECHO ‘TAB’ 
002146 ‘ss: Owe ;CHAR.=CARRIAGE RETURN? 
030733 YES = ECHO 'C/R’. 

BR KYBXMT 
002150 5$: ‘=~ ;CHAR.=bINE FEED? 

6$ NO_CHECK FOR CONTROL Z 
030740 YES = ECHO ' 
s BR KYBXMT 

021632 6$: ;CONVERT BINARY TO OCTAL 
002360 MO VER1.R3 
077577 002420 KYBXMT: ;CLEAR ALL FLAGS BUT XOFF AND XMKIL. 
020442 JS RO, LDXMIT :60 XMIT BUFFER 

BR YSTRT WAIT FOR NEXT CHAR. 


SEQUENCE TO oie MAINTENANCE MODE. 
117 EXMAIN: BYTE .ESC,.0,.DMAIN,O 


NM 
N 
o 


WANLASZS 
gzeig2 
2esuss 


Ete 


lelelelelelelelelelelelelelelea) 
OoONNO 
WWOW 


Mononononanononofroroferyu 
Nm 
Zs NWN 


oO 
W 
Ww 


DIO OI OIC OID IOIDIIIOIOISISIOIIOIOIOIOI IOI OIRO OI TOR TOTO TT TOT TOT I TT IIE 
sROUTINE TO UTILIZE THE VT61 AS A PRINTER CONTROLLER. 
sAFTER TEST MESSAGE IS DISPLAYED, THE al WAITS 
[FOR A C/R BEFORE ACTUALLY ENTERING TEST. A PATTERN 
[OF INCREMENTING, ROLLING CHAR. WILL BE GuTPUTTED UNTIL A 
:CONTROL C(003) IS RECEIVED. 


DD IKKE ERE REE EKER KEE REESE REE ERE EKER 


Tn amiae-n atau om aie cena ateinanet 
012350 000004 TST22: 
000001 001160 MOV #1,$TIMES 3;D0_1 ITERATION 
012366 001106 AMTPRNT,$LPADR ;;SET SCOPE LOOP ADDRESS 


001102 002424 IPRNT: STSTNM, TSTNM IN CASE OF ERROR ~ FOR PRINTOUT 
MO #DPRNT ,R2 [LOAD PRINTER MESSAGE ADDRESS 
RO,DSMES SAND ISSUE IT 
#EXMAIN,R3 
RO,LDXMIT : ISSUE_EXIT MAINTENANCE MODE. 
RO,GTCR :GO SET CARRIAGE RETURN 


ZERO,~(SP) 3sPUSH ZERO ON STACK 
EPNT ,~(SP) ;;PUSH EPNT ON STACK 
Fe :sPUSH ESCN ON STACK 


e ~~ 


TBBUF .R1 :LGAD R1 WITH XMIT BUFFER 
: #41 R5 *R5=1ST CHAR 

002420 5$: #77577,VSTAT | =CLEAR ALL FLAGS BUT XOFF AND XMKIL. 

MO TBBUF ,R1 


aad 
WS 
OOW 
Ti | 


—— 
MW?NoP 


R3= LINE WIDTH 
:GO auld A SLIDING PATTERN. 
[LOAD A C/R AND L/F 


NINte to) 
NW 


LNFED, (R1)+ 
017466 #134. ,XMCNT SET UP TO XMIT BY BYTES. 
167374 #KENA’A@VZCSR 
* 002420 #XMDNE , VSTAT WAIT FOR XMIT DONE 


wlojlelejle) 
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.~6 
023020 CHECK FOR EXIT REQUEST. 
6$ ;NO=CONT INUE 


003760 SYES<EXIT TEST!! 
022174 : =CHECK FOR A PERIPHERAL ABORT. 
000177 177,R5 SEXCEEDED PATT. LIMIT? 


7NO 
:YES RESET IT 


fT ERE RE EREEREEEEEEEEEEEKEKEEREEKEERRREEEERERRRERREKREEEKEEEKERKEE 


ROUTINE TO LOOP DATA/COMMANDS FROM THE yrs! yy TO 
: THE VT61. DATA TRANSMISSIONS RESULTING FROM A ESC 

: SEQUENCE WILL ALSO BE LOOPED AND WILL ENTER THE SCREEN 
AT THE CURSOR POSITION. THIS TEST CAN BE USED TO SIMULATE, 
OR CREATE, SPECIFIC SCREEN PATTERNS AND OPERATIONS. 


[DIGGS IIIIIIISI ISIC ISISIIIIIIDIO III IIIS IIIT III IOI 


leleleleleleleole) 
ab od ab od ad bad od 


DUS IUISIDIIIIIIOIIIDISIIIIDIDIOIIISISISIISIDIIOIOIOIOISISIIIIOIUIOIOIIUIOIIIIOIDIIOIDIIIOIUIIOIUIDI I Ott 
012554 000004 TST23: 
012556 012737 000001 MO #1, STIMES 7:D0 1 ITERATION 
012564 012737 012572 AMLPTST,$LPADR ;;SET SCOPE LOOP ADDRESS 


012572 113737 001102 002424 LPIST: $TSTNM,TSTNM IN CASE OF ERROR - FOR PRINTOUT 
012600 004037 J RO,RESPTR RESET POINTERS 

;LOAD LOOP MESSAGE ADDRESS 
;DISPLAY IT 


Ae VT MAINTENANCE MODE. 
012630 003760 SENTER MAN MODE VIA SCOPE ROUTINE. 


DD EERE KEREEREKEK KEKE REE KKK 


:PRODUCTION KEYBOARD TEST. ALL KEYS MUST BE DEPRESSED 
i IN THE SEQUENCE INDICATED ON THE SCREEN. ALL ERRORS 


; IS DISPLAYED IN DECIMAL. 
:THIS TEST IS RUN IN MAINTENANCE MODE, THEREFORE THE KEYS 
[WILL ECHO THEIR POSITION ,NOT THEIR INDICATED MNEMONIC. 
TERRORS WILL CAUSE AN AUTOMATIC EXIT FROM TEST 


DDR GUE IIIS OI SISIISIIISIOOI IO SISIIISSISIIOUIOIII IOI INIUOIIOOOIO IO ob 


CREE ERE ERE ERR ERE REE ERE REE EEE RRR EERE RK ERE Ke 
000004 TST24: 
012737 000001 ‘ #1 ,$TIMES 3;00_1_ITERAT 


ION 
012737 012652 #PDKBD , $LPADR SISET SCOPE LOOP ADDRESS 
012652 113737 001 106 002424 PDKBD: $TSTNM, TSTNM IN CASE OF ERROR - FOR PRINTOUT 
012660 012702 MO #DKBD = ,R2 
1 004037 RO -DSMES ;DISPLAY KEYBOARD TEST MESSAGE. 


012664 
012670 005037 2404 BUBCT CLEAR ERROR COUNT LOCATION. 
012674 005005 R5 


012676 016504 013022 DOAROW: MOV DTTBL (RS) ,R4 SET UP *GOOD' CHAR, POINTER 
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012774 MSTBL (RS) ,R3 
FEXIT 


&S 


MESSAGE WAS ZERO-EXIT. 

CLMAIN SIF MESSAGE 1S whe hoe MAINT. MODE. 
RO,LDXMIT 4h # *ROW_OR FUNCTION’ MESSAGE. 
RO, CKKBD :GO CHECK IT 
‘TEN. ERROR EXIT? 
NO=CONTI 


7 YES-EXIT TEST. 

INCREMENT OFFSET. 

[NO=DO NEXT ROW/FUNCTION. 
ISSUE EXIT MESSAGE 

;SET UP TO EXIT MAINT. MODE. 


Fane + ead OFFSET. 
TEST CONTROL AND SHIFT FUNCTIONS. 


wo 
MANO 


NNNNNN OS 


MoMNMENMONNMNMoNo/Nfofononofnofrerfrye 
SERED 


BR DOAROW 
: «BYTE .ESC,.0,.DMAIN, ” sins 


; TABLE OF MESSAGE ADDRESSES. 
031656 031713 : WORD DTOP,DSEC,DTHRD,DBOT 


032144 177777 -WORD DSPCE,DKPD,-1,DCONT ,DLSHF I ,DRSHFT ,0 
031477 031603 


032366 032406 DTTBL: .WORD ROW1,ROW2,20W3,ROW4,SPCB 


032446 
000000 032442 -WORD KYPD,O,CNTRA,SHFTA,SHFTA 
032444 032444 


DURE KEE EERE ARERR EKER EERE EREERE EERE 


; SUBROUTINE TO ALLOW SETUP FROM MULTIPLE ENTRIES 


CL AAR EERE RARER EER EERE ERR ERE ERE R EEE ER RE REEA EE 


SETA: 
-SBTTL INITIALIZE THE COMMON TAGS 
; THE COMMON TAGS ($CMTAG) AREA 
001100 ASCMTAG,RG6 izFIRST LOCATION TO BE CLEARED 
(R6) + 32;CLEAR MEMORY LOCATION 
001140 #SWR,R6 ; ; DONE? 
-6 :;LOOP BACK IF NO 


E 

001100 MOV ASTACK, SP ::SETUP THE STACK POINTER 
rz INITIALIZE A FEW VECTORS 

023214 000020 MOV #SSCOPE A#IOTVEC ::I0T VECTOR FOR SCOPE ROUTINE 
000 #340, a4 lorvec+2 si LEVEL 7 
023470 000030 #SE ERROR. awEMTVEC :7EMT VECTOR FOR ERROR ROUTINE 
000340 #340, aHEMTVEC +2 ii LEVEL 7 
025074 , ASTRAP, a#TRAPVEC TRAP {VECTOR FOR TRAP CALLS 
000340 000036 #340, @#TRAPVEC+2; LEVEL 
704 ASPWRDN, a#PWRVEC POWER FAILURE VECTOR 
340 #7/0, QUPURVEC*2 EVEL 
672 011664 : SENDCT, SEOPCT SETUP | ie unas COUNTER 


: 


Sleleleleleleleala) 
mee a ad ed wd 
WINN ANNAN 
~~ =O 
&fkwryo--Oown 
AONSAONS 


024 
000 
011 





5 
07-NOV-78 15:00 a the ie-t6 


INITIALIZE THE COMMON T 
CLR —s STIMES :: INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE Z3CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVE RMAX LLOW ONE ERROR PER TEST 
is INITIALIZE THE BT TS TRAP vector. THEN LOAD, LOCATION, “‘$RTRN'', IN 
THE “END=OF=PASS'’ (SEOP) ROUTINE, WITH A ‘RTI’ OR ‘RIT 
MOV - #SRTRN, a#TBITVEC iiSET "ret VECTOR TO $RTRN 
#340, a#TBITVEC+2 i LEVE 
#RTI;$RTRN T SRTRN TO A RTI 


I, 
#698 @ARESVEC PTR one AR 


Y 
#64$ ,-(SP) 7s AND a! 
TiTRY T 
ARTT,SRTRN 
66$ 


MACY11 30A(1052) 


ey e-FEB-78 16:29 SEQ 0059 


Ct te tt 


000002 
013242 
013232 Se 
zeRTT IS LEGAL=-SET S$RTRN TO A RTT 

#10,SP T ILLEGAL=-CLEAN OFF THE STACK 
#RESVEC+2, amesvit  TRESTORE TRAP CATCHER 
$TBIT CLEAR ‘'T'' BIT SWITCH 

:HINITIALIZE THE LOOP ADDRESS FOR SCOPE 
TUP THE ERROR LOOP ADDRESS 
IF NOT FOUND OR IT IS 


000010 


012737 


013746 


177570 
177777 


165610 


~ @WERRVEC, = ep) 
#67$, ave RRVEC 
#DSWR, SWR 
#DDISP, DISPLAY 
#-1,aSWR 


WARE oe Ah REGISTER. 
“TESAVE ERROR VECTOR 

SET UP ERROR VECTOR 
i 7 SETUP FOR A HARDWARE SWICH REGISTER 
; AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWAR 


E SWR 
69S" {BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT = -1 
; BRANCH IF NO TIMEOUT 
:zSET UP FOR TRAP RETURN 


:sPOINT TO SOFTWARE SWR 
;sRESTORE ERROR VECTOR 


68$ 
#68$, (SP) 


ASWREG , SWR 
#DISPREG,DISPLAY 
69$: (SP) +, @#ERRVEC 


-SBTTL _TYPE PROGRAM NAME 
:. TYPE THE NAME OF THE PROGRAM IF inet PASS 
C =] 2 FIRST TIME? 
70$ Rett IF NO 
AMSENDAD , #42 ACT-11? 
70$ CH IF YES 
::TYPE ASCIZ STRING 


71$ 
70$ “GET OVER THE ASCIZ 
<CRLF >4MD=11-DZVTM-AM<CRLF > 


STUPM ;1SSUE SET-UP MESSAGE. 
AND VECTOR 


HTRPA,aHi0 
0 [PROCESSOR IS 11/45? 
7 YES=DELAY MULTIPLIER = 


013342 


000176 
000174 
000004 


POPONININGNINININGNNGNNY 3 S NINDNNNNNNoNononononn = = = 


67$: 
001140 68$: 
001142 


=n 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
¢ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
25 
( 
( 
( 
( 
( 
( 
( 
( 
( 
5 


177777 
011742 
013406 


Sx 


000042 


BY nd aid ae eet eh ed ee ee ed 
WWNWW 
WWW 
RS 


104401 
012737 
000230 
012737 
000416 


025214 
013452 


000004 


000010 
021436 


OMONMAG 


022626 ;NO 
012737 :RELOAD TRAP ADDRESS 
spre PROCESSOR IS 11/40 OR 35? 
000404 


SYES=DELAY MULTIPLIER=2 


013476 
002356 
000002 


000010 
021436 


~~ to — aed ed od ed — at od od 
OW NEBWPN 


O20006 SGO0000 caC000 
EELS KEKEKE FX 
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TRPB: 
9000001 021436 MOV ;PROCESSOR MUST BE 11/05 
000012 000010 RITRP: V ;RESTORE TRAP CATCHER 
002372 T MODE ;CHECK MODE FOR CORRECT EXIT. 


002516 J MANSA EXIT TO MANUAL SELECT 
002450 70$: ;EXIT TO AUTO MODE. 
yy taeneeneasennnenanasaneneenanaTnsteaaeennnsseeeeaennseeeeeanans 
THIS SUBROUTINE WILL VERIFY EACH ADDRESS AS IT IS 
SENTERED VIA THE KEYBOARD WHEN IN MANUAL MODE. 


GOI SIISISIIIIIIIOI IIIS OGIO TISIIOINIISIOIOIO IIIT IOI IIIT TIS 


160000 TMNAD : R2,4160000 : INSURE ADDRESS IS IN eit ° 
BDEXT :1TS NOT-TYPE A ? AND EXIT 
013554 000004 ABDEXTA, a4 SET UP TRAP EXIT 
aR2 :CHECK THE ADDRESS. 


ALEXT _ ¢1F WE GOT THIS FAR ITS OK. 


BDEXTA: POP2SP ADDRESS "aan aetiile IT, TYPE A 
031344 BDEXT: TYPE - QMRK TQUESTION MARK, RESTORE TRAP 
002536 MOV MBLDADD ,RO ;LOCATION, AND EXIT TO. BUILD THE 
000 000004 ALEXT: art + Saaai NEXT ENTRY, 


DIGI IOIDIDIDIOIDIIOIDIDIOIOIOIUIOICIOIUIOIOIOI IOI OI IOI TOTTI TOTTI TTT TTI IE 
THIS ROUTINE MAPS ALL POSSIBLE DZ11 ADDRESSES AND STORES 
7 THEM IN A TABLE (INTAB). ALL ADDRESSES WHICH DO NOT 
;RESULT IN TIMEOUTS ARE STORED. 

[DIGI GIES EIIISISISIIOISI SISOS IOITISOIOIOIO IIIT IOI III III 


TRPVEC: MOV #300,R1 START AT BEG. OF FLOATING VECTORS 
MOV #302,R2 ; 


#4,R :R3 CONTAINS IOT TRAP INST. 
1$: “ START LOADING ADDRESSES 
[LOAD THE TRAP 
000004 #4 ,R2 : ASSUME 4 REGISTERS PER INTERFACE 


001000 R1,41000 ; ? 

1$ NO CONTINUE LOADING TRAPS 
000006 a6 
013674 000004 _e 2 SET UP_TIME-OUT awe 


001572 MO #INTAB,R5S : ABLE 
002106 FADD: ;PUT_THE ADDRESS TO BE TESTED IN R2 
002110 TRPE : ° HAVE WE EXCEEDED END OF TABLE ADDRESS? 
YES GET NEXT BASE ADDRESS. 
ADDRESS | DEVICE IF POSSIBLE 
: MO IF WE GOT THIS FAR on IS A_DEVICE THERE-SAVE IT 
000070 FADD1: #10,R2 : INCREMENT TO THE NEXT POSSIBLE ADDRESS 
BR TRPE >GO TEST THE NEXT ADDRESS 
TPENT: POP2SP SRESTORE THE STACK AND TEST 
sNEXT ADDRESS 
TBLCK: ol R :SET UP TABLE TERMINATOR OF ZEROS. 


LRA ERR REE EERE KERR ERE EERE REE ERR 


Sy 


RRRRRRRS 
Eeeacces 


RS 
vw 
f£Oosfr 


333 


RRS 


aad cad cad cad cad cad cent cad aah cn cn cen cee ene ced ce ce ce cet eel ae ei ed 
SNN 
Saan 


eleleleleleleleleleleleleleleleleleleleleleleo) 


WW 
YN 
o 
NM 
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: THIS ROUTINE WILL INSURE THAT THE DEVICE(DZ11) 
WILL INTERRUPT WHEN XMIT INT. ENABLE BIT IS SET. 


SL RRR EERE REE EERE EEE 


CDEV: CLR -(SP) CLEAR THE PSW,LSI11 STYLE. 
013714 MOV #100$,-(SP) 


000004 100$: M4 AAS ; INSTALL IOT TRAP _ INST. AT LOCATION 4. 
060020 MO #TDEV,@#IOTVEC_ SET UP IOT TRAP EXIT ADDRESS 
000022 MOV #340,Q#I10TVEC+2 :SET PSW TO 7=ALLOW NO OTHER INTERRUPTS 
: INSURE ALL XMIT FLAGS HIGH. 
AVVECT ,R3 [VECTOR STORAGE ADDRESS cee 
MINTAB,R2 ;PRIMARY DEVICE TABLE ADDR 


R4 

#DZTBL.RS 

MODEM CLEAR GENERAL MODE 
#VZCSR,R1 :VT§1 DEVICE ADDRESS SET. 
(R2) Sig ALL DEVICES? 


z 
§ 


C 


™~ 
Mm HOODNAUS S 


BERN 


sEXIT. 

INSURE ADDRESS IS IN PROPER RANGE (17XXXX) 
sADDRESS IS DEFINITELY NOT GOOD -PURGE 

; AND FOR ANOTHER. 


L 
;LOAD NEXT ADDRESSES TO BE CHECKED 
;NOW USE R1 AS FAILSAFE COUNTER 
ENABLE ALL LINES TO BE SCANNED. 
. #XSCN,@VZCSR ENABLE THE XMITTER SCANNER. 
166050 AXENA,aVZCSR >SET XMIT ENABLE 
R1 :IF DEVICE DOES | ood ant WITHIN 
Aa 4 APPROX. 200US IT IS NOT A D211. 
013756 J CDEVA ; THEREFORE, GO TRY ANOTHER DEVICE. 
040000 166032 : #XENA,@VZCSR [CLEAR XMIT ENABLE. 
000040 166024 BI #XSCN,@VZCSR ;DISABLE THE XMIT SCANS 
166024 XTCR CLEAR XMIT LINE SCAN REG. 
000010 0, 6 SRESET TO RECEIVER VECTOR ADDRESS 
;STORE IT IN VECTOR TABLE(VVECT). 
POP THE OLD PSW AND DISCARD 
:POP THE ADD. AND PSW PRIOR TO INTERRUPT. 
SERRE REE KERR RE REE EEE EERE REE ERKEKEEEEREAEKEKEREEREKKEKEK KK 
THIS ROUTINE IS A QUICK TEST OF ANY DZ11 ENCOUNTERED 
3A DATA PATTERN WILL BE RUN ON ALL ENTRIES IN INTAB 


DD REE RRR EKER EEE KEKE KERR EEE EEE KKKK KK 


~(SP) CLEAR THE PSW,LSI11 STYLE. 
014114 MOV #100$,-(SP) 


R 
100$: (R3)+,R1 :GET THE RECEIVE VECTOR ADDRESS 
MO AND STORE SAME. 


#RECAD, cRI)¢ : 
sSeT pF PSW TO 7. 
STORE THE aay “VECTOR ADDRESS 
7 SET <a A PSW TO 7, 
165746 10,a@VZCSR SET MAINT BIT. 
165744 8 SET ALL DIR BITS 
177400 165736 #177400, -@VXTCR Sige! grays UP IF EIA CONTROL 


;BR I 
002074 : MODEM SET MODEM FLAG 


Wwhon--— 


elelelelelelelelelelelele) 
ee ed ed ed ed od wd 
HKHKHEHKHKHKHKRHRRHEHKREH 
ed ad ad ae ce ce cen cen ce me ceed eed ened 
oe ty ty Ee HE HT cs 
WOW = = 2 2 Oa 


oO 





K 5 
MAINDEC-11=DZVIM-A MACY11 30A(1052) 07=NOV-78 15:00 PAGE 18-19 
CZVTMA.P11 23-FEB-78 16:29 TYPE PROGRAM NAME 


102$ 

MODEM SET FOR NO MODEM 

#177400, aVXTCR :CLEAR ALL DIR BITS 
#10,avZCSR CLEAR MAINT BIT 

#1, TSTLNE ;SET UP TO TEST LINE O FIRST. 
TSTLNE -DZLNE (R4) STORE THE GOOD LINE 
ae 


He, 

TSTLNE eae" UP TO CHECK NEXT LINE. 
LNECK F NOT ZERO-GO CHECK IT. 
#~1 ,DZLNE(R4) STORE DZ11 LINE SEPARATOR. 
#-1 ,MZLNE (R4) 


#2,R4 
VZCSR,(R5)+ STORE THE DZ11 ADDRESS. 
AMSCAN,AVZCSR ;DISABLE REC. AND XMIT SCANNERS. 
AMCLR,@VZCSR :CLEAR SILO AND UARTS 

165600 ‘$: ? etait [WAIT FOR OPERATION COMPLETION. 


- SCRLF 

CDEVA 3;CHECK ANOTHER D211 

(R5) SET A ZERO TABLE TERMINTATOR. 

DZLNE (R4) ;SET THE LINE TABLE TERMINATOR 

MZLNE (R4) 

46,044 RESTORE LOCATION 4 TO HALT CONDITION 
a4#6 TO CATCH ERRORS AND ILLEGAL INTERRUPTS. 
#SSCOPE ,a#IOTVEC RELOAD IOT VECTOR FOR SCOPE 
ig aH IOTVEC +2 ; :LOOP. 


RESTORE HALTS TO ALL LOCATIONS CONTAINING IOTS 
:TO LOCATION 1000 


014414 CLEAR ALL FLAGS 


DDS UO EGS OISISISISIOIISIISISIOOISIIDISIIIUISISISIIIDEISODIU IO oni ito 
INITIALIZATION ROUTINE FOR AUTO SELECTION. THIS ROUTINE 
;WILL INSURE THAT ALL DZ11S IN DZTBL HAVE A VT61 CONNECTED 
sALL UNITS WHICH EITHER DO NOT OR DO NOT RESPOND WILL BE PURGED. 


° GEIS IIIISIIDIIOIOISISISISIIIOIIOIISIOIOIIOISIIIDIOIOOII IOI ISIS I 


014416 INITA: A#DZTBL,R2 zRe POINTS TO DZ11 ADDRESS TABLE 
MO LNE,R EM FLAG 


“PGINTER TO vrot 0211 _— 

165446 BI WCLR.A@VZCSR CLEAR SILO AND UARTS. 

165440 1108: BI wmcLR, ‘@VZCSR_ ss: WAIT FOR CLEAR OPERATION TO COMPLETE. 
VU 


014452 


014454 (R2) SEE IF ALL CHECKED 
INTXT 7 YES~EXIT 
Js RO,LDADD :NO-GO LOAD THE ADDRESSES 
165420 12$: #MCLR,@VZCSR SMASTER CLEAR 
#-7,(R3) SAT A LINE TABLE TERMINATOR? 
014476 001006 : 13$ [NO=CONTINUE TESTING THIS ADDRESS. 
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(R3)+ 71T IS-BUMP THE POINTER AND GET NEXT 


(R4)+ 

AMCLR,@VZCSR ;SHUT DOWN DZ11_ AFTER SAMPLING COMPLETE 

11$ [D211 ADDRESS(IF ANY). 

(R3) , TSTLNE [LOAD LINE TO BE TESTED. 

RO, CONVLN : CONVERT BINARY LINE TO OCTAL LINE. 
;ENABLE LINE AND SET DIR 


;MODEM PRESENT? 
BR IF NOT 


SET MASK FOR BOTH TRANSMIT ENABLE 
;AND DATA TERMINAL READY 


SET _UP FAILSAFE TIMER 
165359 : WAIT FOR CARRIER 
23$ ;BR IF DONE 


002072 


DVAPAAAAIAAIDA AI DI IVI 


SOOO COCOCOCOOOCOCOOCOOCOOCOCOOCOOCOO 
ee eed ee ee eed eed 
PSWNIFSBIELELEANN L333 


BRERKKRRRKRRRR RRR SS 


MUI 


DROP LINE IF FAILSAFE TIME EXCEEDED 


BR 2e$ 
165312 1$: R5,a@VXTCR SET TRANSMIT ENABLE ONLY 
002126 ; OCTLNE,SCRTCH GET THE LINE ate” 
BDRATE,SCRTCH ADD IN BAUD RA 
WRXE'SCL,SCRTCH :ADD IN LINE PARAME TERS 
MOV SCRTCH,@VRBUF  ;LOAD LINE PARAMETER REGISTER 
165250 #SCAN. QVZCSR ; . 


RETRY 
017672 B: RO, ZFLAG : TSSUE ESCZ AND LOOK FOR RESPONSE. 


002356 (SP) +, CHRD :zPOP STACK INTO CHRD 
: TIMEOUT OCCURRED NO CHARACTER 
002356 000140 CHRD ,4140 CHECK IDENT FOR VT61 IDENTIFIERS 
51 :;NOT A VT61-SET UP TO PURGE ADDRESS 
002356 000172 CHRD ,#172 ;IDENTS ARE SMALL A THRU 2 
51$ NOT A VT61-PURGE 


oo 
=— 
, ae 


002356 : (SP) +. CHRD "-sPOP STACK INTO CHRD 
12$ : TEST ANOTHER ADDRESS 
002356 ; (SP) +. CHRD ::POP STACK INTO CHRD 


002072 SCRTCH sRETRY? 
002072 000005 MP i al 


IF NO, BRANCH 
002136 002140 P MO X,Y :WAIT BEFORE RETRY 


002140 Y 

80$ 

493 RETRY 

002356 1} Al tienes ;sPOP STACK INTO CHRD 


000002 ; sRESET LINE POINTER, 
000002 UB . 
3:PUSH R3 ON STACK 


000001 s >. PUSH #1 ON STACK 





MAINDEC-11-DZ7VTM-A 


CZ2VTMA.P11 
2778 014774 
2779 015000 
2780 015002 
2781 015006 
2782 015012 
2783 015014 
2784 015022 
2785 015024 
2786 015032 
2787 015034 
2788 015040 
2789 015042 
2790 015046 
2791 015054 
2792 015060 
2793 015064 
279% 015066 
2795 015072 
2796 015074 
2797 015076 
2798 015102 
2799 015106 
2800 015112 
GQ) 015112 
1) 

(1) 015114 
(1) 015116 
(1) 015117 
2801 015120 
2802 015124 
2803 015130 
804 015132 
2805 015140 
2806 015142 
2807 015146 
(1) 015152 
(1) 015154 
(1) 015155 
2808 015156 
2809 015160 
2810 015164 
2811 015166 
2812 015170 
2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 015172 
2822 015174 
2823 015176 
2824 015202 


104403 
006 


104403 
003 


MACY11 SAVORED 
23-FEB-78 16:29 


015412 


ovset2 
177777 
177777 
001634 
025401 


025330 


001171 
002124 


177777 


021730 
002126 


001171 


000002 
002120 


001632 
001634 


021440 


002124 


ot tatent 
PE PROGRAM 


INTXT: 


NOUNIT: 


E MINT: 


2s: 


3$: 


mM 5 
15:00 PAGE 18-21 
NAME 


RO, ort 3) 


XIN 
#-1 ,DZLNE+2 
NOUN T 
DZLNE+2 
EXINT 


-NOVT 
#1500. ,DCOUNT 
a 


RO 

#DZTBL ,R2 
(R2) 
NOUN] T 
MDZLNE ,R3 
AMZLNE ,R4 
-DUNTST 


(R2)+,-(SP) 
6 

1 

~SCRLF 
(R3)+,TSTLNE 
(R4)+ 

4-1, TSTLNE 
3$ 

RO, CONVLN 
OCTLNE, -(SP) 
3 

0 

2$ 

-SCRLF 

(R2) 


1$ 
RO 


; TRY ANOTHER DZ11 LINE. 
[GOOD LINE FROM 1ST ADDRESS? 
7 YES-BEGIN TESTING. 
[SEE _IF SECOND DJ HAS a. LINES. 
NO GOOD LINES ON 2ND 02711 
: ZERO TERMINATOR FOUND? 


"NO 
;SET DELAY TO 30 SEC. 
AND DO IT. 


;SET UP "NO VT61 FOUND’ EXIT 


;LOAD AND ISSUE GOOD ADDRESSES 
Sane ge A GOOD - st 


~EX 
“LOAD TABLE ADDRESS OF GOOD LINES. 


;OF RESPONSIVE VT61S. 


77 SAVE (R2)+ FOR TYPEOUT 
72 TYPE AN ADDRESS 
#460 erry 39, | ASCII 
s TYPE 6 DIGIT(S) 
Si TYPE LEADING ZEROS 


;LOAD A LINE TO PRINT 


:I1F LINE IS A TERMINATOR, DO NOT 
:DISPLAY = GO SET UP NEXT D211. 
ee re yy IT TO A OCTAL @, 

Ao OCTLNE FOR TYPEOUT 

TYPE A GOOD LINE 

260 TYPE-~OC TAL ASCII 
ie TYPE 3 DIGIT(S) 
;; SUPPRESS LEADING ZEROS 
:NO-TYPE ANOTHER LINE. 


:AT END OF GOOD UNITS? 
[NO PRINT ANOTHER ADDRESS. 


LLM RARAAREAERARAEEAAAARREREREERK EERE REE 


LDADD: 
1$: 


; SUBROUTINE TO LOAD 4 ADDRESSES FROM THE LOCATION AT (R2). 


;TO A LOCATION POINTED TO BY R1.EXITS WITH R2 INC. BY. 2. 


CLAS ARERR ARR A RHR ERE RATER ERARAAAE RARER RERERRAEE RRR eh 


(R2)+,(R1) 
(R1)4#(R1) 
a, (Ri) 
R11. #VXBUF 


;LOAD THE pode 
STORE AN ADDRE 

Types ge! THE ADDRESS 
[LOADED 4 


SEQ 0064 





COVINA. 


206 
210 


YI 


015 


WINEEL SELLER SLISSS Fy 
ANORURVARAROROAOS “. 


SCOCOo COOOCOCCOOCOOOCOOCOOCOoO 
RRSS 


a Se oo oo os os 
PDD MAMA AGIA AAT 


SRERH 
— 
o 


1=DZ7VIM-A 

1 23-FEB-78 1 
1 

1 


002772 
000200 


012637 


013746 
013746 
000200 


reg tl 30A( wre 
6:29 


002414 


164646 


07-NOV-78 

TYPE PROGRAM 
BLT 
RTS 


N 5 
15:00 PAGE 18-22 
NAME 


1$ 
RO 


;NO LOAD ANOTHER 
7 YES~EXIT 


[PAAR RERARA AAR RAERERAARERAAREREREARERARERERERARERERE Re 


; ROUTINE e RECEIVE CHARACTER(S). 
[NUMBER OF CHARACTERS TO RECEIVE ON 


ENTERED WITH 
ON THE STACK. 


> ROUT INE ass a" CARACTER(S) ON STACK. IF A 
[PR TIME-OUT (100 M.S.) OCCURS BEFORE A CHARACTER 
1S RECEIVED ROUTINE EXITS WITH -1 ON STACK. T 


FOR DATA IS ree BYTE1) ETC. 


[DATA ST STACK. SOM/EOM, 


RING ON T 


:BUT NOT STORED. 


FERRARA AAA AA AAARAARRAREREERH EHRAERARARRRARRERERRERARHKERRERER EE 


RECTM: 


1$: ne 
3$: BIT 


31$: MOV 
4$: MOV 


41%: CMPB 
BNE 


BR 
5$: CMPB 


RECEX: 
RECEXA: 


(SP) +,ROSVE 
(SP) +, @#BUBCT 
ZERO,~(SP) 
CHRD 


DLAY 
7? patente 


@VRBUF , CHRD 
#170200, CHRD 
OCTLNE, “CHRD +1 
#5LSH, CHRD 
41$ 

BUBCT+1 

31$ 
BUBCT+1,4139. 
1$ 


CEX 
CHRD , = (SP) 
1$ 


CHRD ,~ (SP) 
ROSVE ,~{SP) -- 
RO : ; 


IF SENT, ARE RECEIVED 


E IF DONE FLAG SET. 


;DECREMENT hag se CNTR, 

SNOT AT ZERO-CONTINUE WAITING. 
;SET_UP FOR FAILSAFE EXIT. 

[EXIT ROUTINE. 

:STORE THIS CHARACTER. 

[STRIP ALL BUT CHAR. AND LINE #. 
RECEIVED 4 CORRECT LINE? 


NO-IGNORE THIS CHAR. 
“RECEIVED A IDENT SLASH(57)? 
:NO-STORE A CHARACTER 
‘Phat tae ALLOWABLE SLA 


COUNT. 
T EQUAL ZERO-SET uP ERROR EXIT. 


RECEIVED FIRST SLASH? 
; YES-IGNORE THIS ONE. 
21S CHAR. ACTUALLY SOM? 


:NO 
YES -SET UP TO gy EOM ALSO 
“AND weeny 2 * NEXT C 


:YES~ DO NOT PUSH IT ON STACK 
[DECREMENT CHARACTER COUNT. 
;COUNT=0. EXIT WERE DONE. 


>;FUSH CHRD ON STACK 
;GO READ AGAIN. 


;sPUSH CHRD ON STACK 
3=PUSH ROSVE ON STACK 


. 
DUAR RAE 


F ORMA 
A WORD OF 7EROS TERMINATES 


SEQ 0065 


~D7VIM-A my 30A(1052)_ O7-NOV-78 15:00 PAGE 18-93 
23-F EB-78 16:29 TYPE PROGRAM NAME 


ENTERED 
WITH ADDRESS T HE STACK. LOCATIONS 
ELIMINATED wi THE STACK MUST ALSO 
BE LOADED wiTH ONS TO BUBBLE. 





MAINDEC=11=DZVIM-A MACY11 SOACIOSE) 07-NOV-78 15:00 
CZVTMA.P11 23-F EB-78 16:29 TYPE PROGRAM NAME 


J FARRAR ARERR EREREREERAEREAERERERRAEREERERERERREERERERREREE 


BBLUP : 
002416 MOV (SP) + ,ROSVE + sPOP STACK INTO ROSVE 
002404 


002402 33 

; PUSH R4& ON STACK 
002402 : @4TOADD ,R4 ;PuT LAST GOOD DZ11 ADDRESS IN R4 
002356 VE a! orn. TO CHRD FOR STORAGE 


177774 : (R4)+,=4(R4) E 

BNE 1$ ;BUBBLE UNTIL a BYTE MOVED. 
002404 BUBCT ; SUBTRACT ONE F BUBBLE COUNT. 

BNE 2s :1F BUBBLE COUNT NOT ZERO = DO AGAIN. 


LLEEELLES 
REReRRSSR 


(SP) +,R4 33POP STACK _INTO R4 
002416 ROSVE ,~(SP) ;=PUSH ROSVE ON STACK 
RO 2 YES~EXIT 


lelejlelelelelelelelelelelelele) 
8 hod od ad aod od Dd oad ad ed 


FEELR 
RFFRNVS 


eet iri iii i titi i tii tit tititiititi iti i tt itt) 
THIS ROUTINE OUTPUTS THE ESC SEQNENCE FOUND ON 
THE STACK. A_WORD OF ZEROS MUST TERMINATE THE SEQUENCE. 
[FORMAT FOR STACK WORD IS SEQ-ESC, IE-XXx033. 


DIO IIIS IIIS IO IO IIIIIEIIDO IU IIDUODO nn titi 


YESC; 
(SP) +, ROSVE ;zPOP STACK INTO ROSVE 
R4 ,BUBCT ZSAVE R4. 
#0, @VXBUF + SEND NULL Pe 
oot ae SWAIT 


4#SOM, @VXBUF , A_START OF MESSAGE. 

#~1 ,R5 L ONES TO THE ite LOCATION. 
(R6)+,R4 CET COMMAND FROM STA 

3$ :IF ZERO — FOUND-EXIT. 
R4,R5 SLOAD CHECK aha 

R4 : CHECK BYTE FOR A ZERO. 

: IF ZERO_DO NOT XMIT IT. 


20$ 
#TRDY ,AaVZCSR 
os WAIT oy XMIT READY BIT 
R4 ,@VXBUF [XMMIT A BYTE. 
R4 :GET THE OTHER BYTE . 
R4,R5 SIF GOOD COMPARE WE HAVE CHECKED BOTH 
1$ :BYTES SO POP ANOTHER WORD. 
BR 2$ ;G0 XMIT ANOTHER BYTE 
164322 : 1 eceatst [SEE IF READY SET 


1774 ° 
012777 164320 #EOM, aVXBUF SEND A EOM. 


Oo 
MmoNn 


Cake Rudtattaihonono 
VORKENSRRS 


0 
Q 
013 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 
015 


NSTSREY 


% 
‘ 
‘ 





6 


D 
MAINDEC=11=DZVTM-A veg Ah sastehieans O7-NOV-78 15:00 PAGE 22 
CZVTMA.P11 23-FEB-78 16:29 TYPE PROGRAM NAME 


100000 164304 =e :SEE IF READY SET 


BE . 
900000 164302 #0, avxffuF ;SEND A NULL 
100000 164266 31S: gi! ATRDY ,QVZCSR “WAIT 


002404 BUBCT .R4 sRESTORE 
002416 MOV ~ pee thnaly > ;PUSH ROSVE ON STACK 


DRO U SOI IOISISIIDIISISIISISIOIIIEIISIOIDIOIIIOIIIIOIIOIIIIOIIIIIIUIIOUIIUIIOIIIIIUI I tt 
ROUTINE TO READ A CHARACTER FROM THE CONSOLE. 
sEXITS WITH CHARACTER ON THE STACK. 


FREER EERE EEREREKEEREEEEEREEREKEEEERREREEREEEEEREKKEK EH 


CONRD : 
012637 (SP) + ,ROSVE :;POP Aas INTO ar 
032777 000200 163272 #RECDN, @$TKS ;LOOK FOR DONE BIT 
1774 “6 ;WAIT FOR IT 
a$TkB, mas [PUSH CHARACTER TO STACK 
#200, ( ;STRIP ANY PARITY BIT. 
015 ROSVE, Resp) 7;PUSH ROSVE ON STACK 
015670 RO 
eee ee ee een ne 
sMANUAL_TEST SELECT MONITOR 
sSELECTS TESTS TO BE EXECUTED FROM THOSE ENTERED IN 
INITIAL DIALOGUE. IF TEST 377 WAS REQUESTED THE TESTS WILL 
SREPEAT INF INITELY. 


DRO IOIISISISISIOISIUIDISIIOISIOIDIIOIIIOIOIIOISIOIOIIOIOIIIOIDIOIOIITISI IOI III III TOI TORTIE 
002372 : MODE :TEST MODE SWITCH 
; MANUAL — 


1$ J 
002374 002376 FTLCNT,ALWCNT ;COMPARE FATAL XMITS WITH ALLOWED. 
100% :FATALS LESS THAN ALLOWED-CONT INUE. 
027315 TY , DABRT ISSUE ABORT MESSAGE. 
: ZCLEAR ALL INTERFACE FLAGS. 
013046 JMP + Sa >SET UP TO RESTART TEST. 


;AUTO MODE 
(R6) + [POP THE STACK 
:POP SCOPE RETURN AND VECTOR 
002374 FTLCNT :DO NOT INC. FATAL COUNT IN MANUAL MODE. 
000200 163202 : + eased CONSOLE ACTIVE? 


163176 MOVB = a$TKB,R1 :STORE INPUT BUFFER 
000200 #200,R1 ‘CLEAR THE PARITY BIT 
000003 MPB #3. RI CHAR. EQUAL ESC. C? 
200$ SYES-EXIT 
164402 : aTSTPTR,R1 SGET THE NEXT TEST # 
001102 R1,$TSTNM 
:NOT AT END OF LIST 


BN’ 
000100 164110 : #RENA,@VZCSR CLEAR REC. INTERRUPTS ie NEXT UNIT SELECT. 
003234 MODCA “END OF LIST-GO SET UP NEXT 61 
< : 3$ ;WAS TEST REPEAT REQUESTED? 
001572 002370 #INTAB, TSTPTR ;YES-RESET TEST POINTER 
1¢ SAND GET FIRST TEST SELECTED 
RY [ADJUST OFFSET 


lelelelelelelelelelelelelelelelelele) 
ed ee a a ad ad ed ad ad ad ed ed ed ed 
QAAAAADIAVIMA MAUI 
~ N 





6 
MAINDEC=11=DZVTM-A MACY11 OAS) we pekant 15:00 PAGE 52-4 
CZVTMA.P11 23-FEB-78 16:29 PE PROGRAM NAME 


R1 USE TEST # TO FORM ADDRESS OFFSET 

025144 016062 TSTADD(R1) spapbe> sLOAD NEW ADDRESS 

000002 016062 AD p+2 ;BYPASS INITIAL SCOPE LOOP 

002370 *StPen TR. : INCREMENT TEST OPINTER 

177776 peu :SET NON-INT. PRIORITY TO ZERO 
resp ) [CLEAR THE PSW,LSI11 STYLE. 

016060 #IMPADD , =(SP) 


I 
016060 : JMPADD EXIT TO NEXT SELECTED TEST 
ett e tei i iti irri iit itiirietitiiti tii tt it iit 
Petri irri iti iti tii titiitiiiiti iii it. 
sFOLLOWING ROUTINES ARE INTERRUPT HANDLERS FOR THE 
3DZ11 QUICK-TEST. 
PITTITITITITIITT LLL ETE ELLE ELE LE LLL LEE EEE EEE 
Beet terete t iii rit iit tiit titi iii t iti t i titi ttt 
@VRBUF , — GET THE kan Fe CHAR. 
#200,C ZCLEAR ANY PARITY 
TPREG. CHRD [COMPARE RECEIVED TO xMITTED 


7BR_IF OKAY 
163774 : ATCOMB,@VZCSR ;DATA ERROR OCCURED OR WE ARE DONE 
163766 #RENA, AVZCSR EITHER WAY-EXIT. 


TPREG ; UPDATE DATA PATTERN 
#B1T06,TPREG DONE ? 

$ ;BR IF YES 

on ZENABLE TRANSMIT INTERRUPTS 
TPREG ;SET DONE 

TOF F ;AND EXIT. 


TPREG, @VXBUF >XMIT DATA 
#XENA.AVZCSR =: CLEAR XMIT INT. UNTIL LAST BIT REC. 


WY ie 


SSSSSESS Yeo 
sssssse 
GERSERSSE 


S585 


N 


3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 

0 


JU REE AREER EERE REE EEE ERE 

pd hy INTERRUPT ROUTINE. ROUTINE WILL TRAP ALL ESC 
UNCTIONS AND WILL SET FLAGS_IN VSTAT FOR SOM, EOM, XON, 
x0 OFF, AND OTHER SPECIAL A get a VSTAT TABLE DEFINITION). 
ZALL INTERFACE STATUS ERRORS WILL = REPORTED. ee EXECUTION 
:TIME FOR THIS ROUTINE IS 200 MICRO SECONDS. AV. = 100. 
; UPON RECEIPT ON XON, XMTKIL BIT IS yeu IN VSTAT 
AND IF SET, WILL BE om ED AND XMIT INT. ENABLE SET 

SLOCATION ESAMB IS USED FOR ESC ASSEMBLY FLAGS. IE. BIT 
700 SET MEANS A033 re RECEIVED, BIT 01 SET MEANS AN ESCP 
>SEQUENCE IS BEING ASSEMBLED. BIT 03 
:SET INDICATES AND ESCAPE 0 SEQUENCE IS BEING ASSEMBLED. 


DIDI SAA IIIS IIIS SISIIDISIIIOIOI ISIS SIIIOOUOOO IO UIOUUOOR tint fet 


ees 
e) 


INTRC: 

R1,-(SP) :7PUSH R1 ON STACK 

R2,-(SP) 37PUSH R2 ON STACK 
163706 rey om SUSE R1 FOR STORAGE OF STATUS AND CH. 

R607 7SET UP LINE CHECK LOCATION. 

170377 R2 :CLEAR ALL BUT LINE BITS. 
0021 MO OCTUNE ” tere GET A COPY OF EXPECTED Li NUMBER. 
002072 Sc2TCH [PUT IT INTO THE RIGHT POSITION. 
002072 MP SCRTICH,R2 ;COMPARE CHAR LINE TO LINE UNDER TEST. 


elelelelelelejojo) 
AXXO 





F 
MAINDEC=11=DZVIM-A MACY11 aatechantaas 07-NOV-78 15:00 PAGE 5298 
CZVTMA.P11 23-FEB-78 16:29 TYPE PROGRAM NAME 


016232 001404 13$ ;YES“EXAMINE IT 

016234 000010 002420 MILLNE ,VSTAT ;NO=SET ILLEGAL LINE FLAG AND EXIT. 
016242 000567 BR RL 

016244 701 000200 : #200,R1 :STRIP PARITY BIT 

016250 Fa4 000100 002420 ee 2 CHECKSUM CALCULATION REQUESTED? 


016256 
16260 R1,R5 : YES=STORE CHAR. AND 
022120 SR RO, CALCK CALCULATE THE CHECKSUM. 
: ABUF ;INCREMINT THE RAW DATA POINTER 
033760 oe. -MABBUF +50. zAT THE END OF BUFFER? 


:NO 
033674 #ABBUF , ABUF P 7 YES-RESET IT 
$ MOVB R1, QABUFP SSTORE THE RAW DATA 
6 ;1F CHAR. IS NULL=GO STORE IT 
017132 #81100+B1T01 +8105, ESAMB sESC OR ESC 0? 
ASES YES-KEEP ASSEMBLING 
aie “ESCN 'BY YTE = ESCN? 


Y A DISPLAY CH.-STORE IT. 


338 


oO 
SexsesasS8s 
ANSIAS 
rN 


= 
aN 
IANS 
VInNI~nN 


lelelelelelelealo) 
-o 
— ss 


td ad ad ad ad td ead ed 
Son8Qas 

o~— 

NW 
NON 


:NO-PROBABL 

1$ :NO=DECODE FOR XON, a of a EOM 
017132 MOV #1 ,ESAMB ZYES SET ESC ASSEMBLY F 
002420 MESC,VSTAT 7SET ESC RECEIVED FLAG 

. BR RSTER SAND EXIT 

oar + SEE IF RECEIVED BYTE WAS XOFF 

002420 #RXOFF ,VSTAT ZYES, SET XOFF IN STATUS REG. 
BR RSTER EXIT 
as SEE IF BYTE WAS XON 


BN NO 
002420 ARXOFF ,VSTAT YES, CLEAR XOFF IN VSTAT. 
002420 BIT. 


oo-— 


AXMKIL ,VSTAT SCHECK XMIT KILL 

RSTER ;NOT SET, EXIT 
163466 A#XENA, a@VZCSR 7SET XMIT INT. ENABLE. 
002420 ot #xMKIL, »VSTAT i THE XMIT KILLED FLAG 


aa -4S0M ; SEE IF BYTE WAS SOM 
002420 2 #RSOM, VSTAT “YES, SET SOM IN VSTAT. 
BR RSTER XIT 


. 
’ 


aad adatatadab abated 
Why 


Sen Ws & 


a} Aeon ;WAS BYTE EOM? 


:NO 
020000 002420 #REOM, VSTAT NOW SET EOM IN VSTAT. 
017124 017130 MO RBBUF ,RBUF P :RESET THE BUFFER POINTER. 
000100 002420 ATXSUM, VSTAT ;CLEAR CHECKSUM REQUEST BIT. 
BR RSTER SAND EXIT 
002146 : CARRT,R1 CHAR. =CARRIAGE RETURN? 
51$ :YES-GO SET END y LINE FLAG 
002150 LNFED,R1 :CHAR.= LINEFEED? 
6$ ;NO- GO STORE IT 
001000 002420 : MEPL ,VSTAT SET END OF LINE INDICATOR 
BR RSTER 


ERSERERR SESFSSSF 


SOOSCSCOSCSCOSCOO ABOCOCOCOCO°OO 
oo 


AXAXKO 
Ww SN 
SavVORUR 


peor por Pm P= 
Oo 

non 

oa 


017130 017126 : ‘ | lata #f, CIRCULAR BUFFER FILLED? 


017124 017130 MO ReSUF ,RBUF P YES, RESET POINTER TO a comets 
000020 002420 : #COMGP ,VSTAT SRECEIVING GRAPHICS CHA 





MACY11 seathinteead™ O7-NOV-78 15: we PAGE $2.8 
FEB 78 16:29 TYPE PROGRAM NAME SEQ 0071 


001402 7$ 3NO 
162701 000137 #137,R1 7 YES-SUBTRACT 137 FROM RECEIVED CHAR. 


032737 000040 : #MREVID,VSTAT oe Sten VIDEO +9 
1402 70$ STORE RECEIVED BYTE. 
000200 #200,R1 i VESSFORCE BIT? AS REV. VIDEO IND. 
000326 : MOVB R1, @RBUFP SSTORE BYTE AND 
017130 RBUF P ; INCREMENT POINTER. 


032701 970000 : #70000,R1 CHECK FOR STATUS ERROR 
001414 RECXT 3NO, EXIT ROUTINE 


052737 004000 002420 ARSTT VSTAT eSET STATUS ry FLAG IN VSTAT 
000330 177777 : @STTEP ,#~1 R E FULL? 
RECXT OUT INE 
000320 MOV R1,@STTEP STORE STATUS ERR. AND CHECK 
000002 017156 #2,STTEP INCREMENT STATUS ERR. POINTER 


3F 
38 


ESES ES: 


FARALLS 
E885 $8 § 


WNWWANWWNNWWAWAANWW 
PO ed ae ce ad ed a a aad ed ed dd 
oO 
N 
ENSUE ~\ 


(SP) +,R2 :;zPOP STACK INTO R2 
(SP)+,R1 Fa STACK INTO R1 


sEXIT 
000002 017132 : #2, Sates [ASSEMBLING ESC P? 
BN’ AESCP :YES-GO GET LAST CH, 
000010 017132 ohh oe ESAMB : ASSEMBLING ESC 0? 
000120 7120, Rt :CH.= A P? 
10$ NO KEEP CHECKING 
000002 017132 ot rE Sas ;YES-SET ESCP ASSEMBLY FLAG 


ZAND EXIT 
000077 : MPR ss #77..R1 SCHAR.IS AN ESC ? ? 
110$ TYES-FAKE AN ESC 0. 
000117 #117,R1 *CHAR = 0? 
BN 11 NO 
000010 017132 : WBITO3,ESAMB —«-: YES SET ESC O ASSEMBLY FLAG 
BR RSTER SAND EXIT 
002244 : RDCUR.RT :BYTE= CURSOR POSITION? 
000004 002420 BI #CURPOS , VSTAT “YES-SET RECEIVED CURSOR POSITION. 
000057 : #SLSH,R1 ;BYTE=TERMINAL ID ESC? 
2$ *NO-CHECK FOR GRAPHICS SEQUENCE. 
000002 002420 B! #TRMID, VSTAT SYES=SET TERM. IDENT FLAG IN VSTAT 
000106 : cM #CKGP,R1 ;RECEIVED GRAPHICS CHAR. SEQUENCE? 
000020 002420 @COMGP. VSTAT SYES=SET GRAPHICS DATA FLAG. 
000107 : #NCKGP RI :RECE 1VED RESET GRAPHICS SEQ.? 
000020 002420 B MCOMGP,VSTAT § : YES=SET NORMAL CHAR. RECEIVE. 
017132 : E SAMB [CLEAR ASSEMBLY FLAG. 
BR RSTER SAND EXIT. 


017162 CP: R* ,STRP STORE ANY UNCHECKED FOR ESC. P 
5 CE SAM 


VYLNISSE 
BESERR & 
MOALS 


so os 
OONAOUSW 


— 
NM 
~S 
Oo 
— 


BR ABA WAN ANS RUDVPUVVD 
Sranees 
WINS = NON fo 
wne™N 
seus 


UOEBWM OO 


31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 


HRERHKHKHRHKRHE 


NO 
os 
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<—_ 


at 
N 
~ 
oO 
= 


002212 AESCO: coe FEMP.RI :BYTE=ESC O -REV. VIDEO- ? 
000040 002420 81 #REVID.VSTAT TYES=SET REVERSE VIDEO MODE IN VSTAT. 


oO 
gs 
Mw 

NN 

Ow 

— WN 


—_ 
Nm 


002214 ; cm DEMP,R1 :BYTE=ESC 0 DISABLE REV. VIDEO MODE? 
0000460 062420 — #REVID,VSTAT TYES=-CLEAR REVERSE VIDEO MODE IN VSTAT. 
000171 : ( #CPABRT ,R1 :COPIER ABORT? 
} SYES-SET ABORT ,FLAG IN VSTAT 
000172 We #PRABRT RI ;PRINTER ABORT? 
010000 002420 38: WPABRT,VSTAT | YES=SET THE ABORT FLAG. 
BR ESAM 


C AND EXIT 
017160 : R1,STRO ZSTORE ESCAPE O COMMAND 
CESAM 


oat 
S8R8 
Now 
S-v 
SoOUwW 
SWSERN 


WWNWWNWWWANWAAWW AWWA 
oO —_— 
ASNS 
Mm—N—n" 
SSS ~N 


— 

a8 

oO 
a 
WWEWG 


ADDRESS OF STAT OF BUFFER 


[ESCAPE SEQ.ASSEMBLY AREA 


NWWWNWWNWANWWNNWNWWW 


elelelelelelale) 


. WORD :STATUS REGISTER DELIMITER. 
STTEP: .WORD STATUS ERROR POINTER. 
STRO: . WORD SESCAPE O STORAGE 

STRP: . WORD SESCAPE P STORAGE 


FDU IOISIOIDISISISIOIOISISIDIOIOIOIOIDISIOIOIOIOIOIOI IOI OI OI ITO TI TOTTI I TOTTI TTT ATE 
TRANSMIT INTERRUPT ROUTINE. IF XOFF BIT IS SET 
IN VSTAT_TRANMISSION WILL NOT OCCUR AND THIS ROUTINE 
;WILL RESET XMIT INT. ENABLE. IF AFTER TRANSMISSION 
: OF THE CHARACTER DURING THIS INTERRUPT CYCLE, THE 


XMIT 
ED. TRANSMIT COUNT(XMCNT) MUST BE 
F BYTE/CHARACTER TO TRANSMIT 
ZIF LOCATION BLKM IS SET To 1001,A SOM WILL PRECEED THE 
=DATA AND A EOM WILL FOLLOW IT. IF XMZER IS SET TO NON- 
ZERO, ALL DATACINCLUDING ZEROS) WILL BE XMITTED. 
° DOUG OIIDIIOGISISIDISISISISISIIOIOISIIOOICIGISIIDIIOOIOIOISIIOIOII ODIO IIIS I tot 
005737 002420 INTXM: VSTAT ;HAS 61 TRANSMITTED XOFF? 
10000 ges NOK IL NO. XMIT ANOTHER 
052737 000200 002420 #XMKIL.VSTAT SET XMIT KILLED BIT IN VSTAT 
000523 K TENA O KILL XMIT ENABLE 


dont gy tedoeinhat a iia eine 7 oo epee ane 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
( 
( 
( 
( 
( 
( 
( 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
, 
; 
: 
; 
, 
; 
1 
1 
1 
1 
1 
1 
1 


WWINNAWINNNNWNNNNWNNIWNNWNNAWNWAN 


2) 
N 





MAINDEC-11=DZVTM-A 
CZVTMA.P11 


198 
199 


Seeesecess 


RORSASASRSROAIRGAAS 
er 
—OOONAUSWN-O 


Ww 
Nm 
MM 


017456 


017460 
017462 
017464 


017466 


6 
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23-FEB-78 16:29 


105737 
141 


009000 
000000 


000000 


002423 
900002 
002142 
002423 
017466 


002142 
0CG0004 
002142 
000000 
002422 
000164 
023072 
017464 


017460 
017464 


002000 
000112 


017464 
017460 
017464 
017466 


002422 
000001 
002000 
017460 
040000 


162702 


162646 


162632 


017462 
017464 


002420 


162534 
017462 


017464 


002420 


1624 34 


NOK IL : 


KIENA: 


TXEX: 


TBBUF : 
TEBUF : 
TBUFP: 


XMCNT: 


BLKM+1 
NOSOM 
#SOM , 2VXBUF 
NULL 

BLKM+1 


XMCNT 
100$ 
LL 


101$ 
#E0M, aVXBUF 
NULL 


2$ 

#0, @VXBUF 
BLKM 

2$ 

a@TBUFP 

1$ 

XMZER 

22$ 

_ 
TBBUF , TBUFP 
NOK IL 


TBUF P 
NOK IL 


A#CKSUM, VSTAT 
22$ 


@TBUFP , aVXBUF 
rg P, TEBUF 


; 
TBBUF , TBUFP 
12$ 

TBUFP 


XMCNT 
2$ 


BLKM 
TXEX 
AXMDNE , VSTAT 
ACKSUM, VSTAT 
TBBUF , TBUFP 
#XENA,aVZCSR 


;SOM/EOM TRANSMIT? 


:NO 
7 YES~ISSUE START OF MESSAGE. 
CLEAR FLAG 


F 
zAND CLEAR SOM FLAG. 


:XMITTED Me BUF FER? 
XMIT A NORMAL CHAR 
7SEND TRAILING NULL? 


BR IF YES 
YES SEND EOM AND EXIT 
;SET UP TRANSMIT OF TRAILING NULL 


LEAVE 
‘SEND TRAILING NULL 


= CHECK +, o ZERO. IF SO DO NOT XMIT 
ARE WE 


sar END OF BUFFER? 
;YES-RESET BUFFER POINTER 


;LOOK FOR NON-ZERO BYTE TO TRANSMIT. 
CHECKSUM REQUESTED? 


sYES,LOAD THE BYTE 
AND ek ce THE NEW CHECKSUM. 
; TRAMSMIT A CHARACJER 


zAy END OF CIRCULAR BUFFER? 


:YES, RESET IT TO START. 
BY-PASS INCREMENT BUFF. POINTER 
; INCREMENT BUFFER POINTER. 


:DECREMENT THE TRANSMIT COUNT 
;YES,CLEANUP ,REQUEST ERRORS AND EXIT. 
NO, CONTINUE 
>SOM/EOM XMIT? 
tg NOT SET XMDNE wie EOM SENT. 
T THE DONE BIT IN V 
[CLEAR THE CHECKSUM FLAG. WHEN DONE . 


SRESET BUFFER POINTER. 


CLEAR XMIT. 


INT. ENABLE 


CONTAINS INITIAL ADDRESS 
; CONTAIN LAST ADDRESS 
CONTAINS CURRENT LOCATION 


;LOADED WITH NUMBER OF XMITS. 


LDU EER EERE KER EERE KERR REE ERR REE ee 


SEQ 0073 
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; SUBROUTINE TO ISSUE RESET TO THE VT61, ENTERS MAINTENANCE MODE 
zAND FORCES LINEAR ADDRESSING. 


J FEAR EEKEEEKERERKEEKEEEEEEEREREEEEEEREREEH KKK 


RESETV: 
002364 MOV ZERO,~(SP) ;sPUSH_ ZERO ON STACK 
002424 060022 igreaee TEST 22? 


oO =i 
= = Ofn— 


002312 
00033 


017622 
002424 


DPNT ,~(SP) 
#33 ,-(SP) 


RESET ,~(SP) 

ESCO,-(SP) 
0,TESC 

RO,GETON 

1$ 


TSTNM,420 
1$ 


FTILCNT 
m0. $GDADR 


ZERO,~(SP) 
EMAIN,~(SP) 
ESCO,-(SP) 
DRECT,~(SP) 
ESCO,~(SP) 


;BR IF NCT 
sMUST ALSO ISSUE ESC xX 


: PUSH RESET ON STACK 
= PUSH 5st? ON STACK 
:GO XIMT IT 
[GO LOOK FOR XON. 
:FOUND IT. 


zADD 1 TO FATAL XMIT COUNT. 
:NO XON ISSUE XON ERROR 


: ¢PUSH ZERO ON STACK 


:zPUSH DRECT ON STACK 
:sPUSH ESCO ON STACK 


RO, TESC 
2420 * VSTAT ;CLEAR INT. FLAGS AFTER TERMINAL RESET 
021312 aaa ;CLEAR PRINT HEADER FLAG. 


017620 


DO TR IRR I II TKK RRR KR EKER EEK 


; SUBROUTINE TO WAIT FOR AN XON. NO XON EXIT IS PC #2. 


BT I TK EK KR RIKI TKR EKER EEK EKER 


017622 000454 002404 GETON: #300. ,BUBCT ;SET UP TO LOOK FOR 3 SEC. 
0176 014040 C @ABUF P 

014034 000021 1$: MPB QABUFP , AXON re td bs A XON? 

GOTON 7 YES-EXIT 

000001 021440 #1,DCOUNT SNO-DELAY 10 M.S. 

021376 RO, DELAY 

002404 BUBCT zAT END OF DELAY? 

BN 1$ NG 

017664 000002 A #2,R0 7 YES-SET UP ERROR EXIT. 
017670 GOTON: RO 


DR RRR RK RR ERR RK EER KR EKER EKER ERK RE KEK 


; SUBROUTINE TO ISSUE ESCZ AND LOOK FOR A ne ge EITHER 
;A_~1 OR THE RETURNED IDENT. THE -1 INDICATES NO 
‘RE SPONSE FROM THE UNIT UNDER TEST. 


PETTITT TTT TTT tte PrrrrerrrerrT Te Trrr rT errr ere Tere Te Te Tere Tr erer 
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017672 


SEQ 0075 


ZFLAG: 
(SP)+,ROSV1 
@4ZERO,-(SP) 
@F#ESCZ,-(SP) 


RO, TESC 
#106003,-(SP) 
RO,RECTM 
ROSV1,=(SP) 
RTS RO 
.WORD 0 
che AgNO SRE pale na i mtetty pee yl gate de teat + 5 fm le 
ROUTINE TO CHECK SOFTWARE STATUS REGISTER (VSTAT) 


[RECEIVE FLAGS ONLY. ENTERED WITH ANTICIPATED 
STATUS WORD ON THE STACK, 


DIGS SIISIIDIDIOIOI I NISIIIIIIDOI IIIS IIISIIIIDIOIOIOI IIIS II IOI 


heey, :;POP STACK INTO ROSV1 


WW 


60 R 
017730 7;PUSH ROSV1 ON STACK 


ROSV1: 


NWIANIWNNANAAWG 


WANNA 
ee ed ed ed 
CONAUSWR =O 


017732 

017732 012637 
017736 010137 
017742 010237 


017746 012601 
017750 013702 


017754 


CKSFT: 
002416 (SP)+, ~ aa :=POP STACK INTO ROSVE 
002360 R1,SVERT SAVE R1 
002362 R2,SVER2 s SAVE R2 


(SP)+,R1 :zPOP STACK INTO R1 
VSTAT ,R2 SET R2 EQUAL TO-VSTAT 


#003566 ,R2 ; CLEAR NON-ERROR BITS 

R1,R2 [COMPARE ANTICIPATED TO ACTUAL. 
NOER ;NO UNUSAL BITS EXIT 

R1,$GDDAT 


sMOVE GOOD STATUS TO MESSAGE 
“iid emamtaaas 


002420 
003566 


010137 
013737 
104003 


001124 
002420 :MOVE BAD STATUS TO MESSAGE 


; ISSUE ERROR MESSAGE. 


001126 
017776 


FROG OIOIOIOIOI IORI IOI OTTO I TTT TOT ITAA AI ISSA AAAS AAA: 
sROUTINE TO PRINT THE STATUS REGISTER IN THE FOLLOWING 
FORMAT: STATUS BITS (XXX 000), CHARACTER TRANSFERRED (000 xX xX) 


DD REE EER EERE KERR REE EEE ERE EEK KK 


: SET R1 EQUAL TO aed Ostend 
;SET R2 EQUAL LAST ENT 

SARE THEY 
NOER : YES-RESET POINTERS AND EXIT. 
RO,CLREG :CLEAR ERROR PRINT LOC. 

001120 [LOAD ADDRESS 

001124 LOAD CSR 

2$: 1)+,$BDDA ; 


sMOVE CHARACTER AND 
(R1)+, SBDADR*+1 :STATUS BITS TO —_ REGISTERS. 
2 : ISSUE | : MESSAGE 


ASTTER,R1 


1$ 

SVER1,R1 
SVER2,R2 

#STTER, STTEP 

RYSVE =(SP) 
Re 


017156 


0 
:RESTORE R1 AND 


;RESET STATUS ERROR POINTER, 
ii ROSVE ON STACK 
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DARA IIIDIIOIDIOISIDIISISIIIOIIIOISIIUISIISIISIDIIOIOIUISIIOIDIIUIIOIOIIOIDIIIIIOIII 
; SUBROUTINE TO CLEAR ERROR/DATA OUTPUT LOCATIONS. NEEDED 
ONLY WHEN DISPLAYING BYTES IN WORD LOCATIONS. 


DDSI IISISIIOIIIIDISIISISIISIISIIOIIOIDIIIISIOIOIDIOIUIIOIDIIOIDIOIIOIOIIUIOIOIIUIOIIU I I 
CLREG: CLR $GDADR 
CLR $BDADR 
$GDDAT 
SBDDAT 
020114 
DDR AU ISIIOISIISIIIOIDIIOIIOIISISISISIOIIOIOIISISIIOIDIOIOISIOIOIIOIDIOIOIIOIOIIOIDIOIIUIIOI II I 
; SUBROUTINE TO TRANSMIT THE BUFFER AND WAIT FOR MIT DONE 
AND END OF RECEIVE MESSAGE. SUBROUTINE WILL LOu? IF LOCATION 
sRECITT IS PRE-LOADED WITH A NUMBER HIGHER THANI(IE. MULTIPLE 
sRECEIVES CAN BE ACCOMPLISHED WITH ONLY ONE ENTRY TO SUB- 


;ROUTINE).WDSTOR AND BYSTOR ARE THE WORD(CURSOR POS.) AND BYTE 
; STORAGE LOCATIONS ,RESPECTIVELY.DEFAULT STORAGE IS THE REC. BUFFER. 


URE EEE REE REE RREREKREKEEEEREKREEEKEEK 


020116 XMREC: 
01 0546 MO R5,-(SP) ::PUSH RS ON STACK 
001001 002422 #1001,BLKM :SET UP FOR A SOM/EOM TRANSMIT. 
077577 002420 #77577 ,VSTAT :CLEAR ALL FLAGS BUT XOFF AND XMKIL. 
020370 MO BYSTOR.R1 “LOAD THE STORAGE POINTERS 
020366 MOV WDSTOR.R2 
161740 B AXENA, AVZCSR :SET INTERRUPT ENABLES 
061466 002420 : #61466, VSTAT CLEAR SOM,EOM, EPL ESC. “REV. VID., PARA. DELIM., IDENT, CUR. 
002414 1$: DLAY [SET UP TIME OUT DELA 
000001 002420 AXMDNE,VSTAT 1S. XMIT DONE?” 
BN 3$ [YES=-LOOK FOR RECEIVE DONE. 
020000 002420 2%: #REOM, VSTAT SRECEIVED AN EOM? 


SYES-GO HANDLE DATA 





BR CKSTR 
100000 002420 : > ote -VSTAT 
002414 
OR XON 
020224 NO XON-REPORT VT61 FAILURE. 
020226 033674 : . sLOAD CH. RECEIVED FLAG. 
005037 4 


002414 DLAY 
020000 #REOM, VSTAT : MESSAGE ? 
STR > YES-CHECK DATA STORAGE POINTERS 


CK 
033674 . SRECEIVED ANOTHER CHARACTER? 
002414 3$ tat g + CH. FLAG AND DELAY 


UN DELAY 
BN AND KEEP LOOKING FOR EOM., 
000002 ; #2,R0 : TIME OUT OCCURRED- at UP ERROR EXIT. 
002374 I FTLCNT : INCREMENT FATAL XMIT COUNT. 
020502 eo AND REST ALL INTERRUPT POINTERS. 
K 


R1,R2 STORAGE POINTERS CLEARED? 
B CHK ITT 7 YES--LEAVE DATA IN REC. BUFFER, 
0203 000004 002420 MCURPOS,VSTAT  ;RECEIVED A CURSOR POSITION? 
020312 001403 STRBYT :NO-GO STORE A BYTE. 
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017722 176604 @RBBUF , (R2) + 


¥ 


ORE IT 
Ww ITERATION COUNT. 
ING A CHAR 


SOHVS 


176572 MOVB . ORE A RECEIVED BYTE 
: R T : DONE RECEIVING? 


020364 
XMITT ;NO=LOOP SUBROUTINE 
023170 J RO, CKOF F SEE IS XOFF IS UP. 


012746 060001 MO #60001 .-(SP) ; ;PUSH #60001 ON STACK 
004037 017732 ROC 
004037 020502 RO, RESPTR ;RESET INTERRUPT POINTERS. 
012605 (SP)+,R5 :;POP STACK INTO R5 
000200 RO :EXIT SUBROUTINE. 

‘- :RECEIVE ITERATION COUNT. 
000000 WORD STORAGE POINTER 
000000 BYSTOR: .WORD 9 ZBYTE STORAGE POINTER 


* 


FFEEEEKY 
mr 


STREAK EREEREREERER AREER EREREREREEREKEKEKEKE 


;SUBROUTINE TO XMIT THE BYTE AT TBUFP. 


LURE EERE EERE REE EERE REE KEREKEEREREREEEEEEEEREEKEKKEKEEE 


042737 00000 XMIT1: #1,VSTAT ;CLEAR XMIT DONE FLAG 
012737 MOV #1 ,XMCNT SET UP TO XMIT 1 BYTE 
052777 161476 1. #XENA,@VZCSR 
012746 AXMDNE , ~ (SP) 3 zPUSH #XMDNE ON STACK 
000001 ) ;;PUSH #1 ON STACK 
023074 ;LOOK FOR XMIT DONE 
HUNG TRANSMIT=CLEAR FLAGS AND EXIT 


BR NORMAL EXIT. 
002420 FTLEXT: [CLEAR ANY FLAGS 
NORXT : 0 AND EXIT 


RRR Ne yey 
Be wngnuigy 


EES 
-O~ 


DIOS IUIIOIIIOIISIOOIIOIUIUIUIOIIOIOIOIIUIOIIIUIDIIDIOI IO Or itt ttnt 
; SUBROUTINE TO ISSUE A BYTE AT A TIME UNTIL A ZERO 
:BYTE IS ENCOUNTERED. 


PETIIITITIITI TTT TTTITETITTLTTITTTITITILILITT TTT LitTTiiitie 
112777 000002 177014 LDXMIT: MOVB #SO0M, aTBUFP ;SEND THE START OF MESSAGE. 
000403 BR $ 


177006 1$: (R3)+,aTBUFP :MOVE A BYTE TO at BUFFER 
LDOUT SIF A ZERO BYTE-EXIT 
020372 2s: ate SUIT AGAIN: BYTE 


BR IN 
000004 176770 LDOUT: #E0M, aTBUFP >SEND THE END OF MESSAGE. 
020372 J + Ti 11 


LTA ERE E REE RRR RR ERRER EERE ERR ERE 


ROUTINE TO RESET ALL INTERRUPT POINTERS. 


PETIT IIII ITIL LITTLE TT TLE TLE LETT LETTE TTT TLE 
020502 040000 RESPTR: BIC #XENA,@VZCSR ;CLEAR INTERRUPT ENABLES 
020510 017124 MOV RESUF ,RBUFP RESET RECEIVE BUF POINTER 
020516 017460 MOV TBBUF , TBUFP RESET XMMT BUF POINTER 
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012737 017156 MOV #STTER,STTEP sRESET RECEIVE STATUS ERR POINTER 
XMCNT CLEAR TRANSMIT COUNT 


L 
ESANB >CLEAR ESC ASSEMBLY FLAGS 
020364 #1 ,RECITT RESET REC. ITERATION COUNT 
WDSTOR CLEAR STORAGE POINTERS 
+ tle 


MOC iti ii ii iiiiiiitisiiiiitiit 
; SUBROUTINE TO ISSUE CURSOR POSITION ERROR. GOOD 
;LINE/COLUMN MUST BE A WORD ON STACK. ERROR 
:POSITION IS EXPECTED TO BE @ RBBUF. 


PPETTITITITICIITITTTITIIITITI TILT TTITITTT TTT TITITiLT LLL iiis 


020562 CURER: 
(SP) + ,ROSVE 3;POP STACK INTO ROSVE 
:zPOP STACK INTO CHRD 
;EXTRACT MOD 40 FROM GOOD POSITION 


;LOAD MESSAGE WITH GOOD 

;LINE AND COLUMN 

:LINE AND COLUMN. 

EXTRACT MOD 40 FROM BAD POSITION. 
CHRD+1,$BDDAT  :LOAD MESSAGE WITH BAD 
CHRD, SBDADR :LINE AND CO COLUMN. 


6 
ROSVE.-(SP) PUSH ROSVE ON STACK 


EPP Crit iii rit iii ri iit iii iii iii iii iti iti i titi titi ii it) 
Peete itiitiiiiiiiiiiiiiiii iii ittitiiiiiii iii itii tii iii titi tT 
; SUBROUTINE TO DECREMENT CUSROR POSITION IN A 
LINEAR SEQUENCE. (IE. ROW 20, COL 1 ;ROW 20 COLO ;ROW 17, COL 157). 


DLR 


123727 020765 000040 CMPOS: LNRW+1 , 440 :AT LEFT EDGE OF “ROW? 
1403 E 1$ Se GO ADJUST COL., ROW. 
020765 tat . DECREMENT COL. AND EXIT 


R 
020764 000040 1$: trates 


AT ROW 0? 
sS. NO Shey ey POSSIBLE-EXIT. 
020764 LNRW =NO, DECREMENT ROW AND 

000157 020765 MO #157, LNRW+1 SET COL. TO RIGHT EDGE. 

020720 000200 2$: RO 


JDO II ISISIISIUISIIOIIOIOISISIOIDIOIOISIOIIOIOISIOIIOIOIOIDIOIOIOIOIOIOISI IIIS OIIOIOI IOI IDIOT I 
SUBROUTINE TO INCREMENT CURSOR POSITION IN A LINEAR 
;SEQUENCE (IE. ROW 10, COL 78, ROW 10. COL 79, ROW 11 , COL O). 


FL RRR RRR RRR RK RE REE E KEE EK 


020722 123727 020765 000157 CPPOS: CMPB LNRW+1 4157 sAT RIGHT EDGE OF ROW 
020730 001403 ° BEQ 1$ YES, ADJUST ROW AND COLUMN, 
020732 105237 020765 2 :NO, INCREMENT COL. COUNT 
020736 000200 RO sAND EXIT 


WWNIWNWNNWW 
MAAMAAAV 
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020740 123727 020764 000067 1S: CMPB ee zAT BOTTOM ROW? 
7 0014 BEQ :YES, a: ey tees aah 


105237 020764 INCB ~~ LNRW REMEN 
112737 he: 020765 MOVB #60,LNRW¢1 ‘Set COL. TO LEFT EDGE. 
000200 2s: RTS RO 


000000 ons -WORD 0 :CONTAINS UPDATED CURSOR POSITION. 


OPTI IIST TIT TISIITITITITITITT IIT TTT Titi Ti Tei tiTitTLiTeTiiet 
; SUBROUTINE TO XMIT, A aid be. AND COMPARE. DATA ts 
EPORTED FROM TINE TRANSMIT ead 


oe 
3 


IT_ FROM SUBROUT INE w 
; +2. ENTERED WITH (R1)= 
[GOOD DATA BUFFER. (R2;=RECEIVE DATA BUFFER AND 
;R3=COMPARE COUNT. IF THE VT61 DOES NOT HANG, THE ROUTINE 
WILL WAIT FOR END OF REC. MESSAGE (EOM). 


SBIEAREANYS 


ro 


LFA ARERR EREREREEERERREREREREREERERRERERRREERREREREREREER 


XRCMP : 


~~ 
~w 
ww Sw 


R4,~(SP) SH R4& ON STACK 
RS ‘use RG A RECEIVE COUNTER. 
; SET FOR AS 


x 


001001 MOV #1001,BLKM 
077577 #77577, VSTAT 


oO 8 

at sh 1 
—_— 

RVOKKSRRNVSAVOVSRS 


040000 
021312 
033644 
002414 
000001 


017124 
100000 
002414 


002414 
017130 


020000 
002414 


161076 


002420 
017130 
002420 


#XENA, @VZCSR 
HDF LG 
#TCRLB+450,R5 
DLAY 

#XMDNE , VSTAT 
XREC 

RBBUF , RBUF P 
XREC 

ARXOFF ,VSTAT 
1$ 

DLAY 

2$ 

XRERR 

DLAY 
ar 
#REOM, VSTAT 
XREXT 


R4 

(Ri)+, (R2)+ 
RS ,ATCRLB+500 
4$ 


-(R1),(R5)+ 
-(R2)- (RS) + 
R, (R5)+ 

(Ri)+,(R2)+ 


524 INTERRUPT ENABLES. 

LEAR ERROR 13 PRINT FLAG 
RS IS ERROR STORAGE POINTER 
2 SET UP TIME OUT DELAY 


XMIT 

:YES~GO RECEIVE 

SHAS RECEIVE OPERATION BEGUN? 
:YES-GO RECEIVE 

:MMIT MOFF SET? 
;NO-KEEP LOOKING FOR XMIT DONE? 
eves RUN DELAY AND LOOK 

;FOR XON OR RECEIVED CH. 

> TRANSMIT TIMEOUT-SET UP ERROR EXIT 


SET UP TIME OUT DELAY 


: INSURE COMPARE POINTER 
:LESS THAN RECEIVE POINTER 
CEIVE EOM? 


; EQUAL=COMPARE A 

SALLREADY yes 0. ERRORS? 
7 YES-BYPASS STORA 

STORE GOOD DATA 


RECEI VEC 
“RESET POINTERS AND 
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005303 4$: R3 3; CHECK Se enit COUNT 
001410 XREXT SALL_DONE~EXIT 

000746 XREC : COMPARE ANOTHER 

062700 ig a : #2,R0 ;SET UP ERROR EXIT 

005237 002374 I FTLCNT Z INCREMENT FATAL XMIT COUNT. 
004037 020502 : oy te RESET INTERRUPT POINTERS. 


— et ot os 6 ot 
SNNSRSINVSSE 


012746 020000 "MO #REOM, - (SP) 7:PUSH #REOM ON STACK 
#4,-(5P) * PUSH #4 ON STACK 


000004 
023074 RO, WIBGND 

BR XROUT NO EOM-ISSUE ERROR AND EXIT. 
033644 #TCRLB+450,R5 


R5,R 
033644 4 CRLB+450,R5 


ed od sd  — - — 6“ 2 2 2 


— 
NUNN 
RRVARO 


NO~CHE CK STATUS AND EXIT 
021312 a ; DAT. ROR Sek re 


BORLVVLGLVLCVCR UGGS 


021312 
020074 
ZERROR MESSAGE AND ISSUE 
COUNT 


ro er S 

a 

RRNA WE eka 
a o 


COUNT 
. BN 1$ PRINT ANOTHER IF NOT AT ZERO 
023170 : 2 SEE IS XOFF IS UP. 
06000 MO #60001 


1 :3PUSH #60001 ON STACK 
017732 KSFT :CHECK FOR VSTAT /STATUS ERR. 
21306 MO (SP) +,R4 >;POP STACK INTO R4 
021310 000200 RO zEXIT SUBROUTINE 
021312 HDFLG: 0 ; INHIBIT PRINT FLAG. 


SLACKER RARER EEE KEKEEE 


sey ie TO CREATE A *RULER*® IN LOCATIONS 200 


: 
ae 
R 


3608 
361 
361 
361 
361 
361 
361 
361 
361 
361 
361 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 


LTE 


021314 033374 CRRUL : ATCRLB+200,R1  ;LOAD STARTING ADDRESS 
130461 MOV #1304 461.R Re :LOAD_ INITIAL RULER ASCII CODES. 
1$: R2, (R1) STORE A RULER BYTE IN XMIT BUF. 
033514 AERLB320,R1 a COMPLETE? 


RO sAND EXIT. 
2$: R2 : INCREMENT ASCII BYTE 
000272 #272 ,R2 END OF REVERSE VIDEO? 
3 NO-SEE IF END OF NORMAL. 
030660 a #030660 ,R2 7SET UP TO ISSUE REVERSE 0. 


000072 $ #2 ,R2 END OF NORMAL VIDEO? 
1$ :NOT AT END OF A VIDEO STRING. 


RESESS 
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012702 130460 
110221 
105202 
Booms 
021374 00075 


021376 


021440 


021442 


000177 


:YES-SET UP TO ISSUE NORMAL 0. 


5$: : 
:SET BYTE TO NEXT ASCII CODE 

SREVERSE VIDEO MODE. 

;BEGIN NEXT STRING 


a ecmemeet ts tie a: a atom ie Goan dee 
; SUBROUTINE TO DELAY 20 M.S. TIME THE NUMBER eye 
[DCOUNT. THE PROCESSOR TYPE PRE-DETERMINES THE # OF LOOPS 
:REQUIRED TO DELAY 20 M.S. FOR ONE Peat $* ry LOCATION 
MULT 1S PR a WITH : 11/45 = 4, 11/40 = 2 


PETIT IIT IIIT TTI T TILT IIIT TIT TTT TititititiTititiTiTT TTT Tie 


DELAY: 
R1,-(SP) 7ZPUSH R1 ON ban 
37PUSH R2 ON STACK 
1$: PMULT,R aan PROCESSOR +  aataccms 
2$: MO _ ;LOAD 20 M.S. DELAY 
ih 4 ry BASIC DELAY 


RUN MULTIPLIER DELAY 
RUN ITERATION COUNT 


7zPOP STACK INTO R2 
:3:POP STACK INTO R1 


PMULT: OQ PROCESSOR MULTIPLIER 
DCOUNT: 0 ; ITERATION COUNT 


SF AEE EERE EEE RE REE KE 


; SUBROUTINE TO GENERATE A a tye: PATTERN AT 
7(R1)+. ENTER WITH R3 EQUAL TO # OF CH. TO CREATE. 
7R5 IS UTILIZED AS A WORK REGISTER. 


DD REE EERE EEK EKER EEE EERE KERR KK EK 


441,R5 ; LOAD ry WITH tt CH. 
R5,(R1)+ ;MOVE A CH. TO BUFFER 

R3 :DECREMENT BYTE COUNT 

2$ >NOT DONE-UPDATE PATTERN 
RO 7 EXIT-DONE. 

R5 [UPDATE CH. PATTERN 
#177,R5 [PATTERN EXCEEDED MAX? 
BLD INC :YES-RESET IT. 

BLD INA :NO=ISSUE CURRENT PATTERN. 


BLDINC: MOV 


DD IE RRR EERE REE REE ERE EEE 


SUBROUTINE TO FILL THE SCREEN WITH INCREMENTING DATA 


CLR, CHEEK ERE REE EEE EERE AER EEREEEKEEKERREKREA ERE 





C=11=DZVIM-A 
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077577 002420 
017460 

000500 
021442 
003600 
040000 
000001 


017466 
052777 160364 


032737 
001774 


002420 


017470 
002420 
017466 


160272 
002420 


021632 


002360 
002360 


002363 


7 
MACY11 FETE? O07-NOV-78 15:00 PAGE 52-4 
TYPE PROGRAM 


NAME 
Lhe -VSTAT 
#320. ,R3 
RO, BLD INC 
#TOTCH, XMCNT 
#XENA, @VZCSR 


1$: AXMDNE , VSTAT 
.-6 


DATSC: CLEAR INTERRUPT FLAGS. 
FILL agp ation WITH INCRE- 
“MENTING P 


10$: SET UP 10. nT 1920 BYTES 


;XMIT DONE? 

: ? 

iNO 

LDR RRR EREEEEEEERERREEERREREEREREEEEEEEEKEEREEKK EH 


; SUBROUTINE TO RESET VT61 AND DISPLAY MESSAGE 
:POINTED TO BY Re. 


DLA EREEREREKERREEERERREEREEEEREEKEKREKKEEREEKREKEE 


DSMES: RO,RESETV ;RESET THE UNIT AND WAIT FOR XON. 
#77577, VSTAT s CLEAR ALL FLAGS EXCEPT XOFF AND XMKIL. 
#5 ,.XMCNT PRE=LOAD XMIT C 

T “RI “LOAD XMIT BUFFER Si fe: 

#SOM, (R1)+ [START OF MESSAGE 


ESCO, (R1)+ 
DRECT,(R1)+ DISABLE RECTANGULAR MODE 
XMCNT ; INCREMENT TRANSMIT COUNT 
etait :DISPLAY MESSAGE 
#E0M, (R1) TERMINATE WITH ‘2 OF MESSAGE. 
#XENA,aVZCSR :XMIT IT AND WAIT FOR 

2$: aati ; DONE 
RO 


LTR REE 


; SUBROUTINE TO CONVERT A BINARY CHARACTER 
:TO 3 OCTAL CHARACTERS. R1 CONTAINS BINARY 
ok pe RESULT IS STORED IN LOCATIONS SVER1, 


* FARRER EERE ERE RRR RI REE REE EREEKEEEEEEEEEEEKEEERKEERE 


BINOCT: 
R5S,-(SP) ::PUSH RS ON STACK 
#2.R5 ‘LOAD ITERATION COUNT 
“a BR 2s ‘BYPASSS SHIFTS FOR 1ST CONVERSION. 
; RI ;SHIFT A CHAR INTO POSITION 
R1,SVER1(R5)_ STORE THE BINARY OFFSET 
#370, SVER1 (RS) 
#60, » SVER1 (RS) 
CONVERT ANOTHER 


A_SPACE 
:POP STACK INTO R5 


1$ 

#40, SVER2+1 
(5?)+,R5 
RO 





2 
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J FREER ARERR EREERAEEEREEEEREREREERERRRRREREERERRERERRERKKREKHEE 


; SUBROUTINE TO CONVERT AN OCTAL CHAR. TO BINARY. REG 
R17 CONTAINS OCTAL AND REG R2 IS BINARY ASSEMBLY AREA. 


PPEITITITITITIII ITIL TITEL IT I LITITTTITITTTT TTT TT TTT LTT TTT 


177770 OCTBIN: ole tia EXTRACT OCTAL COMPONENT 


ry SHIF 
NO - SHIFT PREVIOUS CHAR. 


& 2 
NOSHF T: A zADD CURRENT CHAR. 


FLARE REE REE EERE KEE EEE 


; SUBROUTINE TO CONVERT A BINARY POSITION TO A OCTAL #. 


° SRR R RRR A RARER RARER RRR E EERE ERE RER REE R ERR ER ER ERR REE 


CONVLN: CLR OCTLNE 

MOV TSTLNE, TPREG ;LOAD OCTLNE WITH oor | batman 
101$: BIT #B1T00, TPREG ;OF TSTLNE IN BITS 8 T Bae 

BNE 102$ 

ROR TPREG 

INC OCTLNE 

BR 101$ 
102$: RTS RO 


FERRER ERE EEA REE EERE REET EE 


ROUTINE TO WAIT FOR C/R FROM VT61 UNDER TEST 


PP ReREAROREEERERREREERERERERERERERER ER ERRRRRERER AREER EERE RE 


Or 000200 160116 GTCR: = ;WAIT FOR REVEIVE DONE 
127737 160112 002146 MPB @VRBUF , CARRT CHAR = yer RE TURN? 
001370 GTCR :NO-KEEP LOOK ING 

000200 RO 2 YES~EXIT 


LDU RR ERE EERE EERE EERE eet 
; SUBROUTINE TO GET A CHARACTER (NUMERIC) FROM THE 
;CONSOLE. IF OTHER THAN A NUMERIC IS TYPED A 
eae WILL BE ECHOED 


. 
ET IIIITITI TIT TTT TIT T TLL TELL LETTE LETT 


022010 004037 015640 GTNUM: RO, CONRD :GET CHAR 
(SP)+,R1 ‘BOP STACK INTO R1 
000054 HAR. 


3¢ =COMMA? 
:YES-GO PRINT IT 
002146 MPB rs SCHAR, = CARRIAGE RETURN? 


:1F CHAR. IS LESS THAN 60 
7OR MORE THAN 67, TYPE 
3A QUESTION MARK. 


-) ¥PNUM 
022056 LNFED,R? 





MAINDEC=11=DZVTM-A MACY11 ve O7-NOV-78 15: ur PAGE $46 
CZVTMA.P11 23-FEB-78 16:29 TYPE PROGRAM NAME 


3798 001406 TEXT 
3799 002146 z1F CHAR. = C/R SET UP TO ISSUE 
001003 902150 BNE GTEXT LINE FEED BEFORE EXITING. 


:GOOD CHAR., EXIT 
000077 022116 : 
022116 T TYPNUM : TYPE QUESTION MARK AND 
NUM [KEEP LOOKING. 


eeeporenes 


5 Re oer ape: apie eee ge ne een age mera apy ee gt Si ne eens 


; SUBROUTINE TO CALCULATE CHECKSUM ON THE LOWER 
- R4 IS STORA T 


; C 
; CURRENT ONE PLACE LEFT AND XOR NEW CHAR. CHECKSUM 
31S THE LOWER 7 BITS OF R4 


DLE ARERERE ARE EERE EERE REE 


022120 042705 CALCK: #177400,R5 : CLEAR aaa BYTE OF R5 
C XON ; CHAR. 


LESAGE ES 


NOCAL C YES bo NT * CALCULATE CHE CKSUM 
R5 ,AXOF F [CHAR =XOFF? 
NOCAL C 7 YES D0. NOT CALCULATE CHECKSUM 


022140 000241 ; INSURE CARRY yy INITIALLLY CLEAR 
022142 >SET UP TO ROTATE R4 
022144 100001 $ 3A FULL 8 BYTES 


022146 3R4 WAS NEG. SO ROTATE A ONE 
06104 : INTO LOW ORDER BIT. 


:NOT A AND B 
:NOT B AND A 


;ORED 
MOV EQUAL NEW CHECKSUM 
NOCALC: RTS 


DD KEE RRR ERE REE ERK EERE RRR EREREERKEEEEREEREREREEEKEKKRKEE 


; SUBROUTINE TO LOAD XMIT BUFFER FROM RO THRU R1 


CIERRA EERE EERE EKER EERE EERE RRR EEE 


112021 LDBUF: MOVB (RO)+,(R1)+ sLGAD A BYTE 
001376 BNE 72 ; UNTIL PERO BYTE FOUND. 
022172 000200 RTS RO 


DE EEE EERE REE KEE ERE EERE ERE RRR ERR 


; SUBROUTINE -TO CHECK THE VT61 SOR A PERIPHERAL ABORT. 


DUOC IOIIIDIIDIUIOIIISIIIIIOIOIIUUIUIDUIUIOOIIOIOO oii tn tit tits 
022174 032737 010000 002420 (CKABRT: BIT #PABRT ,VSTAT ;ABORT FLAG RECEIVED? 

022202 001446 BEQ 2$ iNO~EXIT 

022204 910037 001124 MOV Ro, $GDDAT 

022210 162737 060004 001124 SUB ° «#4, $GDDAT ;POINT ERR PC TO MAIN ROUTINE. 


NM—OOONOUSWRO 


BRE 


3825 
3824 
3825 
3826 
382 


oo~w 


etctetetctctteete 
Ras seteicicactacictchcae 


WR OOdDNAUEWI 


Wihihis 3333 33 
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022216 013737 
022224 104020 


022226 013701 
004037 


macy FOIE 
6:29 


001126 


022320 2$: 


07-NOV-78 
TYPE PROGRAM 


H 7 
15:00 PAGE 22-17 
NAME 


VSTAT, $BDDAT 
20 


TBBUF ,R1 
RO, 


ISSUE PERIPHERAL ABORT ERROR 


;LOAD THE XMIT BUFFER WITH: 


L DBUF : 
"ESC, .0,.1ABT, -E5C,.0, .RABT 


-ESC,.0,.UNLKKB, .BEL,0,0 


#7 ,XMCNT 
RO, XMREC 


en 
RO, $SGDDAT 
#4, $GDDAT 
¥$ TAT ,SBDDAT 


RO 


7SET_UP TO XMIT 7 BYTES. 
:XMIT AND RECEIVE. 


TE SCEX A oo CLEARED? 
[NO=SET UP AND ISSUE A CANT 


[CLEAR ABORT FLAG ERROR MESSAGE. 


FLARE EKER EERE ERERER RARER REE 


; SUBROUTINE TO COMPARE RECEIVED KEYBOARD DATA WITH 


DATA EXPECTED. ERRORS ARE REPORTED AS POSITIONAL 
ROR ONLY 


. 
LEAR ERR EERE EEE EERE EERE RRR REE REEEEERERERE 


022322 105077 CKKBD: 


-KBDLP: 


002356 


000072 


013022 
021632 

2362 002360 
000060 
000062 
002360 


002360 


Rouse 
ROnrwonr— 


020442 


CLRB 


R4,R1 
DTTBL(R5),R1 
R1 


RO,BINOCT 
SVER2, SVER1 
SVER1+1, #60 
LDPOS 

SVER1 #62 

#2, SVER1 

LDPOS 
#370,SVER1 
SVER1 .KYSTRK+1 
SVER1+1,KYSTRK 


#DKBERR oR3 
Re 2 ie 
(R4) 


CLEAR RECEIVE BYTE 
; CLEAR “4 STORAGE . 
;WAIT FOR A INPUT. 


STORE IT AND 

[CLEAR THE INPUT AREA 
;RECEIVED EQUAL EXPECTED? 
:NO-UPDATE POINTERS. 
fre | ERROR COUNT. 


i YESCEXIT SUBROUTINE. 


EXTRACT KEY POSITION FROM ROW LOC. 
: CONVERT LOGICAL POS. TO ACTUAL. 


:POSITION LESS T 


:YES-GO LOAD IT. 


[POSITION GREATER THAN 8 AND LESS THAN12? 
;YES-SET UP TO BORROW. 
3NO-JUST SUBTRACT 2. 


; SUBTRACT AND BORROW. 
LOAD THE CONVERTED DECIMAL &@, 


ISSUE BODY OF KEYBOARD ERROR, 








MAINDEC=11=D7VIM-A MACY11 spatihindeaid O7-NOV-78 15: Leds y, PAGE bas 
CZVTMA.P11 23-FEB-78 16:29 TYPE PROGRAM NAME 


022502 021632 RO -BINOCT 
022506 03 002360 . +: 


CONVERT AND ISSUE GOOD CHAR. 
: INSERT 6 SPACES IN MESSAGE. 


CONVERT AND ISSUE RECEIVED CHAR. 


ISSUE C/R AND L/F. 
[LOOK FOR SAME KEY AGAIN. 


GDSTRK: R : INCREMENT K “yy ROW COUNTER. 
T [REACHED Foe OF R 
BNE :NO=LOOK FOR NEXT OENPUT 

CNTF: 7 YES~EXIT. 


SDAA EKER REE EEE EKER ERE EH 


; SUBROUTINE TO er DATA_ THROUGH HOST COMPUTER. ALL 
FUNCTIONS ARE ALLOWED, BUT BLOCK TRANSMITS WHICH 
sEXCEED 552 BYTES WILL RESULT IN THE TERMINATION 
:OF THE OPERATION AFTER 552 RECEIVED BYTES. 


DF EAR AREER AREER ERE EKEREEEEK KEKE 


022570 023072 | OOP : XMZER ;SET UP TO XMIT NULLS. 
017126 #TCRLB+500,REBUF RESET BUFFER POINTERS 


917460 #RCRLB, TBBUF 
ESPTR ;RELOAD ALL INTERRUPT POINTERS 
002420 Nagra VSTAT [CLEAR ALL FLAGS BUT XOFF AND XMKIL. 
‘ : MOV RBUFP RG :SET UP RECEIVE FLAG 
602420 : AXMDNE , VSTAT :MIT COMPLETE? 
LOOPR NO 


7 
MAINDEC=11=DZVIM-A MACY11 30A(1052) O7=NOV-78 15:00 PAGE 23 
CZVTMA.P11 —-.23-FEB-78 16:29 TYPE PROGRAM NAME seat ie Ws micas Ao peat - 
000001 002420 #XMDNE ,VSTAT —; YES_RESET FLAG 
017126 017130 RBBUF , RBUF P RESET THE REC. BUFFER POINTER 


BR LOOPT 
002420 : MEPL+ESC,VSTAT ;RECEIVED AN “ OR EPL? 
BNE LPSTR 7YES-GO CHECK IT 
;RECEIVED A DISPLAY CHAR? 
:NO=LOOP 


BR BUMPCT 
174226 : YES LOAD IT IN THE BUFFER 
I RBUF P AND INCREMENT BUFFER POINTER 
C ESAMB ;CLEAR ESC ASSEMBLY WORD 
002420 a ae ; HE 


010742 MPB ESCN, @ABUF P ; 
LOOPT SYES WAIT FOR NEXT PART OF oo 
002150 174166 Sp: imam CHAR. WAS EPL ADD A LINE FEED 


017130 
FRCECT AND ISSUE THEM, 


BR 
017466 000764 : XMCNT #500. BUFFER ABOUT FILLED? 
B FRCECT :NO 
022760 017130 : RBUF ? SYES-RESET THE RECEIVE POINTER 





kK 7 
MAINDEC=11=DZVTM-A MACY11 30A(1052) O7-NOV-78 15:00 PAGE 26 
CZVTMA.P11 23-FEB-78 16:29 TYPE PROGRAM NAME 


BR LOOPT 
017466 FRCECT: INC XMM : INCREMENT THE XMIT COUNT 
917466 000002 CMP XMCNT ,42 io CHAR TO XMIT? 


XMWT 
040000 157102 #XENA, aVZCSR oy tay 3 THE XMIT ENABLE 

023020 XMWT : RO,EXTST [LOOK FOR END OF TEST COMMAND. 
LOOPT NONE FOUND. 


sAND EXIT 


LDR EEA RARER EEE REE EERE EE 


; SUBROUTINE TO CHECK FOR END OF TEST COMMAND. THE CONTROL 
:C KEY EXITS ALL TESTS. 


ete t Ti iii iit ii tiie ies ittie titi it iitiiatitii iit iit titi tit itt ity 
127727 010650 EXTS/: @ABUF P #3 ;LOOK FOR CONTROL C. 
001020 BN NOROUT 


012737 033173 ABSXT: #RCRLB+477 ,REBUF - RESET THE BUFFERS 
012737 MO #TCRLB, TBBUF 

RO,RESPTR RESET ALL POINTERS 

AMDEXT ,R2 


004037 

012702 

004037 ISSUE EXIT MESSAGE 

005037 Z CLEAR THE ZERO TRANSMIT FLAG. 
023064 062700 000002 ADD SET _UP TEST EXIT. 
023070 000200 NOROUT: RTS 0 EXIT SUBROUTINE. 


023072 000000 XMZER: .WORD 0 
DDI SISIOIIISISIOISIOIUIDISIDIOIOIIOINIOIOIUIOIOIDIOIIOIOIDIOISIIDIIDIOIIIIOIOIIIOIIUIUIIIII IOI IOS 
; SUB-ROUTINE TO LOOK FOR VSTAT BIT ON THE STACK 
DELAY FACTOR IS FIRST WORD ON THE STACK AND VSTAT BIT 
:IS THE SECOND. MIN. DELAY IS 4 U.S FOR A MOS 11/45. 


LURE EKER ERE REE EEK EERE EERE REE KKK 


023074 WTBGND : 
012637 MOV (SP) +,ROSVE ::POP STACK INTO ROSVE 
(SP) +,VDLAY :¢POP STACK INTO VDLAY 
(SP)+,VBIT sPOP STACK _INTO VBIT 
VDLAY ;DOUBLE FACTOR FOR LOW BAUD 


4 1$: DLAY 
023164 : VBIT,VSTAT 7 SENSED THE CONDITION? 
BN FNDBT > YES-EXIT 
002414 = NO-RUN DELAY. 
BN 2$ 
023166 ;DELAY FACTOR EXPIRED? 
1$ ;NO=L 


“DELAY EXPIRED-ISSUE HUNG NiT 
002374 ‘INCREMENT FATAL XMIT COUNT. 


BR 
Agra gh ; :SET UP FOR NORMAL EXIT 
013746 002416 : ROSVE ,-(SP) :zPUSH ROSVE ON STACK 
009200 RO 
000000 VBIT: 
VDLAY: O 


CURR CREATE E RAE RE AEEERREERE RR EEREREEERERR EEE EE 


; SUBROUTINE TO LOOK FOR XOFF BEFORE EXITING A RECEIVE ROUTINE. 





7 
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FF RARER ARR AREA AEE R AEE REE REE REEEKERERERAKEERERERERAEEEREREEKER EE 


902414 CKOFF : DLAY 
100000 002420 1$: B MRXOFF ,VSTAT :1S XOFF SET? 
2s :NO=EX1T 


002414 DLAY RUN DELAY. 
BNE 1$ 
09351 2 000200 2$: RO 


-SBTTL SCOPE HANDLER ROUTINE 


Itt i iii ittit titi iii titi titi iti itiitt 
THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

3; *AND tn THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
*AND L THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

:aTHe SuITCh tl ¢ oat BY THIS ROUTINE ARE: 


ON TES 
INHIBIT ITERATIONS 
LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 


SCOPE ;;SCOPE=I0T 


023214 : 
004037 015672 JSR RO,MONIT 
032777 040000 155712 : BIT #B1T14,aSWR ;;LOOP ON PRESENT TEST? 
023226 001111 BNE SOVER “YES IF SW14=1 
:AHAAHASTART OF CODE FOR THE XOR TEsTensanes 
023230 000416 $XTSTR: BR 6$ :1F RUNNING ON THE 'XOR’’ TESTER CHANGE 
‘THIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
023232 013746 000004 @WERRVEC,-(SP) 2:SAVE THE CONTENTS OF THE ERROR VECTOR 
#5$, AFERRVEC SET FOR TIMEOUT 
a4#177060 IME OUT ? 


(SP) + ,@#ERRVEC ; 7RESTORE THE ERROR VECTOR 
BR $SVLAD :GO_TO THE NEXT TEST 
5%: (SP) +, (SP) + 7:CLEAR THE STACK AFTER A TIME OUT 
(SP) +, @#ERRVEC 2 ¢RESTORE THE ERROR VECTOR 
7$ LOOP ON THE PRESENT TEST 
CODE FOR THE XOR’ TESTERAMMAM 
155644 BIT *! T08 ,aSWR 4 ea TEST? 


001102 aSWR,$TSTNM SZ0N THE RIGHT TEST? SWR<7:0> 
E SOVER *°BR IF YES 
2$: SERFLG + HAS aN ERROR OCCURRED? 
001103 SERMAX, SERFLG : MAX. ERRORS FOR THIS TEST OCCURRED? 
155606 #31709, aSuR ::LOOP ON, ERROR? 
001106 7$: SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
BR $OVER 
7: ZERO THE ERROR FLAG 
>: CLEAR THE NUMBER OF ITERATIONS TO MAKE 


1$ os Fegy TO THE NEXT TEST 
155554 ; oat TTT aun : INH 1 RATIONS? 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


eee ee ee ee ee ee ee eee eee eee ee eee es ee ee a 


001011 
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SPASS iilF FIRST fay OF PROGRAM 
1$ NH elle i 


SICNT 
001104 STIMES,SICNT 
8 SOVER 
001104 1$: #1 ,$1CNT 
001160 MOV SMXCNT ,STIMES 
TSTNM 


SSVLAD: 

MOV (SP) ,SLPADR E 

4 (SP) ,SLPERR 77 SAVE ES 
SESCAPE 77CLEAR THE ESCAPE FROM ERROR ADDRESS 

‘91133 MO 1, SERMAX 7Z0NLY ALLOW ONE(1) ERROR ON NEXT TEST 
55462 $SOVER: AB nine i th ge TEST NUMBER 
, as $LPAD. ples pe RETURN ADDRESS 

SMXCNT: 5 7 MAX. MUPBER OF ITERATIONS 

~SBTTL ERROR HANDLER ROUTINE 


Iti iti ii iii iii titi iii ti itis iit iitt. 
SSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 
;* THE SWITCH sal + oy PROVIDED BY THIS ROUTINE ARE: 
SwW15=1 T ON ERROR 

INHIBIT ERROR TYPEOUTS 

BELL ON ERROR 

LOOP ON ERROR 

N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


Ct tt ee ee ee et a ee ee a a ae a 


o3 
x 


105237 7$: SERFLG ee SET THE ERROR FLAG 
1775 BEQ 7$ ;DON'T LET THE FLAG GO TO ZERO 
$TSTNM,@DISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG 
#B1T10,aSWR : ¢BELL ON ERROR? 
1$ z:NO ~ SKIP 
, SBELL ; RING oF 


SERTTL ; COUNT THE NUMBER OF ERRORS 
(SP) , SERRPC 3:GET ADDRESS OF ERROR INSTRUCTION 
2 STRIP AND SAVE THE ERROR ITEM CODE 
SKIP TYPEOUT IF SET 
>:SKIP_TYPEOUTS 


20 
024056 PC ,SERRTYP ::GO TO USER ERROR ROUTINE 
001171 -SCRLF 


155350 $: aSwR ;HALT ON ERROR 
3$ {SKIP IF CONT INUE 


HA RROR! 
001000 155336 3$: | co} T09.aSum +s LOOP ee SWITCH SET? 


:BR IF 
MOV SLPERR, (SP) > ;FUDGE RETURN FOR LOOPING 
4$: : $5 SCAPE cet FOR AN ESCAPE ADDRESS 


oe I NONE 
$c SCAPE , (SP) : FUDGE RETURN ADDRESS FOR ESCAPE 


(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


5$: 
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~DZVIM-A MACY11 veanechaoead” on oat! 15:00 PAGE B63 
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022737 011742 000042 CMP —s-WSENDAD,a#42.——s; ;ACT=11 AUTO=ACCEPT? 
001001 BNE  6$ *IBRANCH IF NO 
a HALT YES 


000002 RTI 7; RETURN 
-SBITL TYPE ROUTINE 


[a 


Petri irr irri iri iii iitiitiiiiiiiiiiitiititiiit 

“ #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE yw TERMINATE WITH A O BYTE. 

;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

:*NOTE1: SNULL CONTAINS THE CHARACTER 9 BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


*CALL: é 
‘*1) USING A TRAP INSTRUCTION 

® TYPE _,MESADR 7;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING _ 
TYPE 


2271S THERE A TERMINAL? 

77BR IF YES 

7 sHALT HERE IF NO TERMINAL 

Sh 

) GET ADDRESS OF ASCIZ STRING 

met »-(SP) ;zPUSH CHARACTER TO BE TYPED ONTO STACK 


:7BR IF _IT ISN'T THE TERMINATOR 
(SP) + self TERMINATOR POP IT OFF THE STACK 


105737 $ $TPFLG 
100002 BP 1$ 


(SP)+,RO 


024052 


024006 
001156 


001154 
000001 


024006 
024052 


#2, (SP) 
MHT, (SP) 
ACRLF , (SP) 
5$ 

(SP)+ 


ae 


$ 
PC ,$TYPEC 
SFILLC,(SP)+ 


$NULL .~ (SP) 
1(5P) 

6$ 

PC ,$TYPEC 
$CHARCNT 


STORE RO 
ZZADJUST RETURN PC 
; sRETURN 
; BRANCH IF <HT> 
; =BRANCH IF NOT <CRLF> 


3:POP_ <CR><LF> Equiv 
7-TYPE A CR AND L 


7: CLEAR CHARACTER COUNT 
GET NEXT CHARACTER 
7260 we THIS CHARACTER 
2i1S IT TIME FOR At CHARS. ? 
IF NO GO GET NEXT CHAR. 
:2GET . OF FILLER CHARS. NEEDED 
THE NULL CHAR, 


; :DOES A NULL NEED TO BE TYPED? 
:BR OIF wer POP THE NULL OFF OF STACK 

£260 TYPE A NULL 

st oe COUNT AS A COUNT 


sHORIZONTAL TAB PROCESSOR 


1 
1 
1 
1 
1 
3 
1 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 


awww eee eee ee ee eee ee ee ee ee ee le ee ee I ee ee 


NN a i ee i i ee ee ee ee a ee i a et a ee te a ae a 
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11271 0 : 
es 00004 at 


155136 


(SP) 7ZREPLACE TAB WITH SPACE 
Pc. -$TYPEC Z: TYPE A SPACE 
* SCHARCNT : 7BRANCH IF NOT AT 
::TAB STOP 
(SP)+ ; POP SPACE OFF STACK 
23 :GET NEXT CHARACTER 
gS TPS - t:WAIT UNTIL PRINTER IS READY 


$ 
2(SP) ,aSTPB LOAD CHAR TO BE TYPED INTO DATA REG. 
* aca HIS ae Mb A CARRIAGE RETURN? 


; BRANCH IF NO 
: iS YES==CLEAR CHARACTER COUNT 
3338 ae LINE FEED? 
[COUNT THE CHARACTER 
SCHARCNT : .WORD 3: CHARACTER COUNT STORAGE 
STYPEX: RTS 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


Ctr iit iii iii iiitiitiiitiiitiiiitiii ts 

SSTHIS ROUTINE USES THE ‘ITEM CONTROL BYTE"’ He a TO DETERMINE WHICH 
>*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE’’ ($ERRTB), 
7*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE 


by 
3 


800018 

00001 

024052 

000012 1$: 


ee ed 
Ne ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
ee 
S382 oO “8s 
2 = “Dun 
@ 


SRE Tara ene ee a oe 


¥ 


, SCRLF ae <a RETURN'' & ‘LINE FEED’ 


RO,=(SP) V 

R :BTCKUP THE ITEM INDEX 
024066 a4$1TEMB RO 
024072 001004 1$ iil ITEM NUMBER IS ZERO, JUST 

[TYPE THE PC OF THE ERROR 

024074 SERRPC ,-(SP) 3: SAVE yo FOR TYPEOUT 
2sERROR AD DRESS 
ee bY ea ASCII(ALL DIGITS) 


10$ 
RO 3 TADJUST THE a SO THAT IT WILL 
- oe WORK FOR THE ERROR TABLE 


RO 
#$ERRTB,RO 77FORM TABLE POINTER 
(RO) +, 2% + ¢PICKUP “ERROR MESSAGE"' ee 


iETYPE THE “ERROR MES 
:" ERROR MESSAGE’ POINTER GOES HERE 
,SCRLF rf : CARRIAGE R RETURN'’ & ‘LINE FEED" 
(RO) +,4$ PICKUP "DATA HEADER'’ POINTER 
5$ 3 PEOUT IF. 


HEADER" 
0 3 a HEADER’ POINTER GOES HERE 
.SCRLF 33 5 PA nee RETURN’' & ‘LINE FEED 
R1,-( SP) ZSAVE R1 
(RO) +,R1 : PICKUP ‘DATA TABLE’’ POINTER 
41 Si IF NO DATA TO BE TY°ED 
024162 (RO) +,RO *° PICKUP ‘DATA FORMAT'’ POINTER 


1 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
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6$:  TSTB —(RO)+ 
BNE 7$ 3 
a(R1)+,=(SP) SAVE @(R1)+ FOR TYPEOUT 
“ TYPE==OCTAL ASCII(ALL DIGITS) 
@(R1)+,=(SP) —_; ;SAVE @(R1)+ FOR TYPEOUT 
(R1) 


24204 Ba $s ::BR_IF 
924206 024226 118 ::TYPE TWO(2) SPACES 
024212 000764 BR és ooP 
024214 98: (SP)+,R1 ; RESTORE R1 
012600 108: (SP) +°RO SIRESTORE RO 
SCRLF 3 2'‘CARRIAGE RETURN’ & “LINE FEED’ 
RTS BC : ;RETURN 
11$: ASCIZ / / 3zTWO(2) SPACES 


-EVEN 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


~ 
— 
~~ 


020040 
024232 


MW 2 SS BS Ss SS Ss NN = PON 


eee P iii iii titi ti tii titi itt iti tit tt itt tt 

SS THIS ROUTINE IS USED TO —_ A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT 

i sSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, =-(SP) ;NUMBER TO BE TYPED 
tICALL FOR TYPEOUT 
7zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
37M=1 OR , 


=TYPE LEADING ZEROS 
‘iO: SUPPRESS LEADING ZEROS 


ie 

*$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
; #$TYPOS OR $TYPOC 

‘ie MOV NUM, =(SP) : NUMBER TO BE TYPED 

:* [:CALL FOR TYPEOUT 


; *$TYPOC~-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


>*CALL: 
; MOV NUM, - (SP) NUMBER TO BE TYPED 
3* TYPOC SCALL FOR TYPEOUT 


$TYPOS: a(SP) ,~(SP) :sPICKUP_THE MODE 
024455 MO 1(SP), -$ORILL 2 sLOAD ZERO FILL SWITCH 
(SP) 1 ;;NUMBER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 


BR $T PON 
024455 $TYPOC: 72SET THE ZERO FILL SWITCH 
024457 MO #6, SOMO ci3Et FOR SIX(6) DIGITS 
024454 $TYPON: 5,$0C SET c me ITERATION COUNT 


024232 


Besa 
ey 
SHrMNMONNAwN 
AAASSAAF 

RAGS 


R 


SEES 
SAKANNN 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
0 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


eee ee eee ee eee ee eT eee ee ee ee lee es ae ae ee ae 


3 tS hs 2 3 ss 3 hh 9 a sf) 


-OoO0oO0--—— 
~~ 
Wo 


MO ) ; R5 
024457 SOMODE 1, R4 :-GET THE NUMBER OF DIGITS TO TYPE 
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024312 RS 
024314 0627) 000006 #6 ,R4 7 SUBTRACT IT FOR MAX. ALLOWED 
024320 R4 , SOMODE 7SAVE_IT FOR USE 
SOF ILL ,R4 2iGET THE ZERO FILL SWITCH 
lie oR5 HE INPUT NUMBER 


~ 
— 
~ 


T 
;;ROTATE MSB INTO‘ 
3:60 DO MSB 
32FORM THIS DIGIT 


024456 
177770 


:;DON' : SUPPRESS ANYMORE 0'S 
32MAKE THIS DIGIT ASCII 
; ;MAKE : e NOT ALREADY 


OR TYPING 
:260 TYPE THIS DIGIT 
024454 : ::COUNT BY 
2$ ::BR IF MORE TO DO 
IF DONE 


27 INSURE LAST E LAST DIGIT. A BLANK 


(SP) +,R3 ORE R3 
000002 000004 . 26S SET THE STACK FOR RETURNING 


3; RETURN 
8$: . :sSTORAGE FOR ASCII DIGIT 
-B ; TERMINATOR FOR TYPE ROUTINE 
SOCNT: YTE ;sQCTAL DIGIT COUNTER 
000 SOFILL: .BYTE 2 ZERO FILL SWITCH 
024456 SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 
.SBTTL CONVERT BINARY TO DECIMAL’ AND TYPE ROUTINE 


FEAR E RRR EEREEREREERREEEEEEEEREREREEREEREEREREEERK EH 
SSTHIS ROUTINE IS a TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE  - 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED - 
*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BF 
hn WITH SPACES. 
**CALL: 


MOV NUM, = (SP) ;;PUT THE BINARY NUMBER ON THE STACK 
TYPDS °:GO TO THE ROUTINE 


RS SS Ss SS SS SS SS 2 SH SS SS SS SS Ss SS SS SS SS Ss SS Sh ss a a 
eee a ee ee ee ee a ee ee ee ee ae ee a ee ee ae ee ae ee ee ee ae ees ae es 


& 


024460 $TYPDS: 

024460 6 MOV RO,-(SP) 32:PUSH RO ON STACK 
MOV Ri. =(SP) 33PUSH R1 ON STACK 
MOV R2,-(SP) :PUSH R2 ON STACK 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
0 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


WWW @ 2 a 2s os Ss Ss ea QQ 
ee ee Nee eee ae es ee ee 
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R3,-(SP) ;;PUSH R3 ON S arate 


RS,-(SP) : : «PUSH RS ON 
920200 #26200, =(SP) 
000020 20(SP) -RS 
BPL 1$ 


NE R5 
000055 , VB oe ,1(SP) 
024674 ; #SDBLK .R3 :: POINTER 
000040 MOVBo#t atRS)e iSET I THE FIRST CHARACTER TO A BLANK 
32 THE BCD NUMBER 


: R 
024664 $DTBL (RO) ,R1 :GET MIME CONSTANT 
R1,R5 :FORM THIS BCD DIGIT 
:BR DONE 


4 IF 

Re : INCREASE THE BCD DIGIT BY 1 
R1,R5 7ZADD BACK THE CONSTANT 

R2 7: CHECK IF BCD DIGIT=0 

5$ ;;FALL THROUGH IF 


IF Q 
(SP) :iSnTL DOING LEADING 6°S? 
7$ $3 YES 


(SP) : :eMSD?. 


6$ ‘BR IF NO 
177777 MOVB  1(SP),-1(R3) =: YES==SET THE SIGN 
#'0,R2 SIMAKE THE BCD DIGIT ASCII 
R2 : MAKE IT A SPACE IF NOT ALREADY A DIGIT 
THIS CHARACTER IN THE OUTPUT BUFFER 


::GO DO THE NEXT DIGIT 
::GO_TO EXIT 

3;GET THE LSD 

::GO CHANGE TO ASCII 

::WAS THE LSD THE FIRST NON-ZERO? 


BP 9$ ::BR_ IF NO 
177777 177776 ’ IYES--SET THE SIGN FOR TYPING 
(R3) 2 i SET THE TERMINATOR 





024674 $DBLK : E 
000002 3(SP),4(SP) *SADJUST THE STACK 


(SP) +, (SP) 
:2RETURN TO USER 
$DTBL: 


024674 000004 $DBLK: .BLK 
- SBTTL BOWER DOWN AND UP ROUTINES 


pecesanssencssconsesonssneceseasonnversunassesoneeeoqseneenceens 
“POWER DOWN ROUTI). 
012737 025056 $PWRDN: MOV #SILLUP, @#PWRVEC ,;SET FOR FAST UP 


OnRARRARRARARARAR RAR ARR RAR ARR AAA AA AARA AAA RRA RRR RRR RRP PPP 8 


> 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
7 
) 
) 
) 
) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
3 
3 
3 
3 
1 
1 
1 
; 
1 
1 
1 
1 
1 
3 
1 
2 
; 


ce ie 
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024712 000026 #340, aA#PWRVEC +2 :¢PRIO: 
010046 RO,=(SP) SH 


~ 
_ 
cee 


RS, “pet i 
154200 2PUSH @SWR ON STACK 
025062 37 SAVE 
024756 MOV #SPWRUP ,a#PWRVEC’:;SET UP VECTOR 


3 ZHANG UP 
J TERRA AREER PAR RRSRASASSZASLERS ASSESSES AS ESR RRS ES 
“POWER UP ROUTINE 
025056 $PwRUP: MOV ASILLUP,a#PWRVEC ;:SET FOR FAST DOWN 
025062 R6, SP ::GET SP 
::WAIT LOOP FOR THE TTY 
1$: t:WAIT FOR THE INC 
BNE 1$ :: WORD 


154132 


$3 INTO RO 
024704 @APWRVEC :pSET UP THE POWER DOWN VECTOR 
000340 #340, BHPURVE C+ ; 0:7 
Report THE POWER FAIL 


URE 
ts SPOWER POWER FAIL ee POINTER 

000020 #20,2(SP) FILE “TT 

012014 $TBIT :sCLEAR THE oa BIT FLAG 


23 THE POWER UP SEQUENCE WAS STARTED 
oe BEFORE THE POWER DOWN WAS COMPLETE 
$SAVR6: O ::PUT THE SP HERE 
025064 $POWER: .ASCIZ <15><12>' POWER’’ 
025072 
-EVEN 
-SBTTL TRAP DECODER 


LEAR EEE EEE REE RRR EER 
“STHIS ROUTINE WILL PICKUP THE Loe BYTE OF THE ‘'TRAP’’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

> *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED I7 WILL 
:*GO TO THAT ROUTINE. 


$TRAP: RO,-(SP) 3: SAVE _RO 
000002 MO 2(SP) ,RO 2 GET TRAP ADDRESS 
-(RO) KUP 2 


;BA BY 
(RO) ,RO GET RIGHT BYTE OF TRAP 
5 R ZzPOSITION FOR INDEXING 
025130 MO $TRPAD(RO),RO ;; INDEX TO TABLE 
Re 3:G0 TO ROUTINE 


WW 9 9 9 3 Ss Ss SB WWW 9 9 3 3 9 a SW 


NN i ee ee a a Sa a 





( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
0 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ek a a ed ad td as os 2 - A) 
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6:29 AP DECOD 


“yer EB-78 1 


3: THIS IS USE TO HANDLE THE ‘'GETPRI** MACRO 


$TRAP2: MOV (SP) ,=(SP) :sMOVE THE os a+ 
MOV 4(SP) ,2(SP) et THE PSW DOWN 
RT] sRESTORE THE PSwW 


-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “‘TRAP’’ INSTRUCTION. 


025116 $TRPAD: 

L TRAP+1(104401) TTY TYPEOUT ROUTINE 
-* TRA°+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
>: CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
::fALL=TYPON —- TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
025142 024460 $TYPDS 3:CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


PR FR FREER REAR 


— SWNWWNIANWWNWNNWNANWANA 2 2 SS 
ene nee eee ne ee nh 


025144 003760 006352 004600 TSTADD: TST1,TST2,7ST3 
025152 005002 005142 005364 1ST4, 1STS,TST6 
025160 005622 006506 007174 1S17,1ST10,1ST11 
025166 007414 007576 010032 1$112,1S113,1ST14 
025174 010262 010756 011202 1S115, 1S116,1S117 
025202 011356 012036 612350 1$120, 75121, 1$122 
025210 012554 012636 15123, TST26 


025214 0425 020124 052126 STUPM: .ASCII /SET VT61S TO FULL DUPLEX, /<15><12> 


-ASCIZ /9600BAUD, REMOTE PARITY MATCHED TO INTERFACE/<15><12> 


025322 041501 


025330 005015 042101 0511046 DUNTST: .ASCIZ <15><12>/ADDRESSES WITH RESPONSIVE VI61S ARE:/<15><12> 
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CZ7VTMA.P11 23-FEB-78 1 


051505 
044527 
051505 


= 
—=—Mon 


—_ od 
SOSR==R 
MAW O NAO NVIWNVIO Sw 


025606 
025614 
025621 


— 
WMVINo-0O— ===) ft 
SON SIND 


SEE S 
SyR & 


025762 


oO 
in) 
par 


oo COCOO 
= 
SunRRA 
~—ADAOW 


oo 

RAGR 
MNMNOOOOCON 

WS MAA 


a 


DAADERRAR SRA 
MmMO—NNr-—] VW 


RS 


/NO VT61 RESPONDED TO ESCZ SEQ. AUTO RETRY IN 30 SEC./<15><12> 


<15><12>/D211 FAILED AT ADDRESS/ 


/MANUAL TEST SELECTED -/<15><12> 


7ENTER ADDRESSES OF VT61S TO BE TESTED/<15><12> 


ENTER TESTS 10 BE RUN/<15><12> 


7ENTER LINES TO BE TESTED IN BINARY FORMAT(I.E.0=1,10=2000) /<15><12> 


eASCIZ /ENTER BAUD RATE IF DIFFERENT THAN DEFAULT (9600)/<15><12> 





MAINDEC=11=DZVIM-A 
CZVTMA.P11 23-FEB-78 16: 


eASCIZ /27/<15><12> 
-ASCIZ /AN ESC SEQ. TO THE VT61 FAILED = OCTAL EQUIV. IS:/<15><12> 


/TEST# ERR PC BYTE 142 BYTE 3+4/<15><12> 


/RECEIVE STATUS ERROR. /<15><12> 
7ADD. STAT. ERR.BITS CHAR./<15><12> 


026252 
026254 : /SOF TWANE (VSTAT) STATUS ERROR. /<15><12> 
0262 024040 


/ PASSA, TEST#, EXP.STAT, ACT.STAT/<15><12> 


/GD. DATA DOES NOT MATCH REC. DATA/<15><12> 


042522 
052101 





MAINDEC=11=DZVTM-A 
CZVTMA.P11 23-F EB-78 


4085 


C 
: ABL SEQ 0100 


/TESTM# ,REC.CNT.,GD. DATA, REC. DATA/<15><12> 


SEA oS 


ARE 


/BYTES EXPECTED DOES NOT EQUAL BYTES RECEIVED/<15><12> 


mr 


MUWF NAOO 


/BYTES EXP., BYTES REC./<15><12> 


/CURSOR POSITIONING ERRGR/<15><12> 


/GD LINE GD COL. 8D LINE BD COL/<15><12> 


/DIRECT CURSOR ADDRESSING FAILURE/<15><12> 


/PASS# TEST # ERROR PC /<15>«12> 


/PASSA# TEST# BD.ROW BD.COL/<15><12> 


a 


/L4ST TRANSMISSION TO VT61 CAUSED UNIT TO FAIL-HANG./<15><12> 


027052 
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051511 
052040 


SEQ 0101 


oO 
wW 
Nm 
* 


EM12:  .ASCIZ /VT61 UNDER TEST FAILED= ERROR DATA FOLLOWS/<15><12> 


RAAGKAR 
ANM—PNnnw 
—— 


& NRLNRRR 


EM10: -ASCIZ /V1T61 FAILED SELF TEST FUNCTION/<15><12> 


RP 
“ys 


027246 
027251 2 DH12: .ASCIZ /PASSH#, TEST#, GD.CKSUM, BD.CKSUM/<15><12> 
ih teg 052040 


2 
027272 041456 
027300 : 


041456 
027306 » 005015 

027314 

027315 %3 04 DABRT: .ASCIZ /TESTING ABORTED=TOO MANY FATAL XMITS/<15><12> 


EM13: eASCIZ /VT61 RECEIVER CHECKSUM COMPARE ERROR/<15><12> 


033124 EM14: ~ASCIZ /VT61 TRANSMITTER CHECKSUM COMPARE ERROR/<15><12> 
047101 046 


027470 
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CZVTMA.P11 23-FEB-78 16:29 TRAP TABLE 


027476 051122 051117 005015 
027504 000 


SEQ 0102 


-EVEN 
DVUNIT: .ASCII /UNIT UNDER TEST /<15><12> 


ww 
-—~ 


05211 
05110 
02012 
05112 

50 


1 
5 
4 
3 
5 
0 
0 
5 
2 
po epee 
2 
0 
24 
15 
7 
1 
1 
12 
06 


ww 
_—— 


eASCIZ /RCSR VECT. LINE IDENT/<15><12> 


RSRLR 
AORS 


eASCIZ / RCSR- VECT./<15><12> 


eASCIZ /PRINTER IS ATTACHED/<15><12> 
eASCIZ /COPIER 1S ATTACHED/<15><12> 


eASCIZ. /XOFF TO VT61 FAILED TO HALT BLOCK XMIT/<15><12> 


eASCIZ /XON TO VT61 FAILED TO RESTART BLOCK XMIT/<15><12> 


/NO XON RECEIVED WITHIN 3 SEC. AFTER A RESET/<15><12> 


/LAST PERIPHERAL OPERATION ABORTED/<15><12> 


—— fo 
REARS 


eee ee 
So 
Ww 


38 


/COULD NOT CLEAR LAST ABORT FLAG. /<15><12> 


ROLE 
Soon 
, er ere 
Nonon 
Onsu 
RRR 





” 8 
MAINDEC=11=DZVIM-A MACY11 30A(1052) O7=NOV-78 15:00 PAGE 26-15 
TRAP TABLE 


CZVTMA.P11 23-FEB-78 16:29 SEQ 0103 


=] 
S 
g 


05212 
02710 
123 


g 


4124 EM22: .ASCIZ /SOM OR EOM NOT RECEIVED DURING MAINT. MODE TRANSMIT/<15><12> 


eee 
RF 


WNOW WN SN" 


SSSSESS 
PAPAS RY 
SELLLRE 


Oo 
NN 
WW NO Ywrhowrore 


EM23:  .ASCIZ /LINE FEED OR CURSOR RIGHT ISSUED FROM ROW 23 DID NOT CAUSE SCREEN TO SC 


lolelolelelelelelelo) 


RAGSRSR 


RRVL 
=NSOs 


DH13: .ASCIZ /PASS , TEST ,  VSTAT/<15><12> 

020040 

052101 

peeles DH14: .ASCIZ /PASS, TEST, ERR PC, VSTAT/<15><12> 
DESC:  .ASCiZ /ESC / 


DKYBD: .ASCII /KEYBOARD TEST/<15><12> 


SPR 
mr 
MOON —WwNr— 


WOOCOCO—NWVVUINWENWw 


eASCI] = /KEYSTROKES ECHO:/<15><12> 


mow Ww 
ESN —o 


eASCII /A DISPLAY THAR, = A DISPLAY CHAR./<15><12> 


coocees Sun S&S 


nowe— 


433 = ESC/<15>«<12>» 





_wW 8 
MAINDEC=11-DZVTM-A MACY11 30A(1052) 07-NOV-78 15:00 PAGE 26-16 
TRAP TABLE 


CZVTMA.P11 —-23-FEB-78 16:29 SEQ 0104 
030610 041523 005015 
4137 O3pel8 052461 se 041440 “ASCII /15 = C#R/<15><12> 
4138 0 Q51061 056440 046040 ASCIT /12 = L=F/<15><12> 
050654 045095 00901 
4139 030640 033460 036440 041040 “ASCII /07 = BELL/<15><12> 
0 046105 006514 O12 
4140 03065 061 020060 020075 “ASCII /10 = TAB/<15><12> 
030660 040524 00650 01 
4141 030665 116 047117 04205 .ASCIZ /NON=DISPLAY CHAR.= OCTAL EQUIV/<15><12> 
030672 051511 046120 054501 
30700 041440 040910 027122 
041517 040524 
030714 020114 050505 044525 
pega 030722 000012 
4143 030726 040524 020102 — 000 DTAB: .ASCIZ /TAB / 
4144 030733 051055 000040 DCR: <ASCIZ /C-R / 
4145 030740 026514 020106 000 DLF:  ‘ASCIZ /L-F / 
4146 030745 046105 020114 DBELL: ‘%ASCIZ /BELL / 
ergy 030752 
4148 030753 1 047517 020120 DLOOP: .ASCII /LOOP TEST = LOOP COMMANDS AND DATA THRU/<15><12> 
030760 042524 052123 026440 
030766 04 047517 020120 
030774 047503 046515 047101 
031002 051504 040440 042116 
031010 042040 052101 020101 
031016 044124 052522 00501 
4149 031024 047510 052123 041040 ASCII /HOST BACK TO VT61 UNDER TEST. /<15><12> 
031032 041501 020113 047524 
031040 053040 033124 02006 
31046 047125 042504 020122 
031054 042524 052123 02005 
031062 005015 
4150 031064 047503 052116 047522 DCNTZ: .ASCIZ /CONTROL C EXITS TEST./<15><12> 
031072 020114 020103 042440 
031100 044530 051524 052040 
031106 051505 027124 005015 
gis1 C3114 000 
4152 031115 105 044530 020124 DEXT: .ASCIZ /EXIT TEST./ 
i353 021122 042524 052123 000056 
4154 031130 051120 047111 042524 DPRNT: .ASCII /PRINTER TEST -/<15><12> 
031136 020122 042524 052123 
031144 026440 005015 
4155 031150 031461 047503 .ASCII /132 COLUMNS OF A SLIDING PATTERN WILL BE/ 
031156 052514 047115 020123 . 
031164 043117 051440 . 
031172 044514 044504 043516 
031200 059040 052101 042524 
031206 047122 053440 046111 
031214 020114 042502 
4156 031220 047503 052116 047111 “ASCII /CONTINOUSLY OUTPUTTED TO PRINTER/<15><12> 
031226 052517 046123 020131 é 


Za 
—_ 
SERS 4 


eASCIZ /CAR, RET. TO START/<15><12> 


Vw 
Nm 
—_ 


— 
~*~ Wo 


/LAST XMIT CAUSED VT61 HANG/<15><12> 


ee 
VERS 
oooo 
mee 
N=S 
IA 


eASCIZ = /?/ 
«ASCII /PRODUCTION KEYBOARD TEST. 10 ERRORS CAUSES TEST EXIT./<15><12> 


— 


we 
XS 


SSeES 
ooo 

4 

3 


veksha sats 
ERSGR 


S 
ww 


/DEPRESS KEYS FROM LEFT TO RIGHT/<15><12> 


ow SVMIVINSSRNN SW 


OUW SS NO oye 
ESsko =SN= 
WORNORR 


=S23 


04 
04 
04 
04 
0 

05 
05 
05 
05 
05 
04 
05 
04 
05 
00 
04 


oS 
vw 


/DEPRESS LEFT SHIFT KEY AND THE ‘‘A’* KEY /<15><12> 


/DEPRESS KEYS IN TOP ROW/<15><12> 


VINIWWG 


DRSHF T: /DEPRESS RIGHT SHIFT KEY AND THE ‘‘A’’ KEY /<i5><12> 


=-—— 
Ww 


Seas 

Wino 

SRS SSRIS 
WMOow 


/DEPRESS KEYS IN SECOND ROW/<15><12> 


SS 
SV) 
MM 
—— Wt 
——W\ [=] 


OW 
AWS 


031664 
031672 


F 








9 
MAINDEC=11=DZVTM-A MACY11 30A(1052) 07-NOV-78 15:00 PAGE S618 
CZVTMA.P11 23-FEB-78 16:29 TRAP TABLE 


Ob 7208 051040 
05351 


8 


4168 
4169 /DEPRESS KEYS IN THIRD ROW BEGINNING WITH °A*/<15><12> 


&£n 
we 
on 


FRAASR 
HN NOAWAUNOAMNOOVUNY 


Ww 
~m 


: 
g 


WAIAIANI AWG 
LASSRRRR 
es 

NW-Oorn 
oO 
3 
oO 


/DEPRESS CONTROL KEY ,AND THE ‘'A’' KEY /<15><12> 


oO 

3 

—— 
oOo 


R 


elojlelelelelelelelelelela) 
—_ 
sf oOxEae 


es 
RSS 
ger 


/DEPRESS KEYS IN FORTH ROW EXCEPT SHIFT KEYS/<15><12>_ 


o 
Ww 


S3SssR 


=f 


eASCIZ /DEPRESS SPACE BAR/<15><12> 


05 
05 
04 


oo=— 

wae 

On 

mw 

mew WMOWwP 


/DEPRESS KEYPAD KEYS,LEFT TO RIGHT, TOP TO BOTTOM/<15><12> 


032224 
032227 113 630302 eASCII /KEYBOARD ERROR,KEY POSITION IN ROW SHOULD BE / 


KYSTRK: / /<15><12> 
/JOCTAL GD, OCTAL BAD/<15><i2> 


020040 





MAINDEC=11=DZV 
CZVTMA.P11 


oo 


o oOo°oo 


032440 
032442 
032444 
032446 
032450 


032473 


032474 
033174 


TMA MACY11 30A(1052) 
23-FEB-78 16:29 


? 
04 
07 
064 
000 


076 
032 
4 
1 


Sooo 
SB EBERT 


oo 
SESSk 


88 8 sea 


o~— a 
NV) N= 


0.9 
O7-NOV-78 15:00 PAGE 26-19 
TRAP TABLE 


-BYTE 


36,76,20,13,32,12,54,44,14,41,71,57,63,64,3,114,0 


26,56, 30,73,52,22,55,34,24,31,51,77,62,61,2,0 


46,40,53,23,72,42,45,74,11,21,47,27,66,0 


16,70,60,50,33,43.25,35.75,65,37,115,67,0 


01.0 

101,0 

15,0 
113,04,103,104,1,112,101,102,6,7,106,100,5 


10,105,107,110,17,111,0 


RECEIVE CIRCULAR BUFFER 
TRANSMIT CIRCULAR BUFFER 


SEQ 0107 





9 
MAINDEC=11=DZVIM-A MACY11 30A(1052) O7-NOV-78 15:00 PAGE 57 
SYMBOL TABLE 


CZVTMA.P11 23-FEB-78 16:29 SEQ 0108 


032227 


steies 
eNO 


7 
7 
0 
74 
07 
07 
2 


oo 
—— 


00 
021314 031346 
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MAINDEC-11=DZVTM-A MACY11 30A(1052) O7=NOV-78 15:00 PAGE 27-1 
CZVTMA.P11 23-F EB-78 16:29 SYMBOL TABLE 


MANS 


SRESS 


ase 


SCL 000070 
SCRTCH 002072 
SEQ4 004246 


RABRT= 000172 ! 
MAINT = 000010 PRESC 002410 002346 





B 
= 
nro 
~ 
nm 


MAINDEC=11=DZ7VTIM-A MACY11 30A(1052) O7-NOV-78 15:00 
CZVTMA.P11 23-FEB-78 16:29 SYMBOL TABLE 


XMAD2 020262 
XMCN 017466 


a Sate: 

1 05037 
L = 000200 
020116 


002252 
025010 
020362 


SEQ 0110 


SOVSEROS 
SSS8sssss 

Fv nu 
SEEEEEEEE EEE 
—NN 


RS 
3 
RSWWRES 


so 
VI — 
w 

oOo 

MN 

-OoO--—— 
— “tt 
nunwun 

— Mw 


Nooo eRe Or 
oa 


mhahuieabeiabokiiakantl 
= 


LSSSSSSVSs_q 


NUWIW wn 


_— Nh 
-_--O—- | O— 
NAY 

KONRGSER 

oO 

Ww 

Ww 

—Oo 

ln 

lw 


ry 
Rs 


ssssesssss 


-ROOC2= 032040 
-RO1 = 000041 


oOOw 
“unut 


RR 
MESWOWO Wu 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


= 0000 
= 000064 
= 00006 
: 5 
= 0 


o 
vw 


oo 
Ss 
one 

— 
NO 


0000 - DAPNT 
012014 . DCRAD= 


oO 

Wo 
+o 
, ery 
Wwn™N 
we 


000 


ERRORS DETECTED: 0 
DSKZ:CZVTMA,DSKZ:(Z2VTMA=DSKM:(7VTMA, P11 
RUN-TIME: 25 19 .9 SECONDS 


RUN-TIME RATIO: 481/46=10.4 
CORE USED: 28k (55 PACES) 





